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GUIDE FOR TIDY USERS 
SUMMARY 

Tidy is a computer code for use in cleaning up disorganized 
FORTRAN programs. The old proaram is re-organized so that 
statement numbers are added sequentially, and extraneous FORTRAN 
statements are deleted. This manual contains general instructions 
for using TIDY on the TPM .160/67 Tymeshare System, and specific 
instruct ions for use on tie NASA/AMES IBM 760/67 TSS system, 
may be readily adanted for use on other computers. 


TIDY 
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SECTION 1 
INTRODUCTION 

Often, during the development of a complex program, statement 
numbering gets out of order and confusing, and it becomes difficult 
to follow the logic. Also, after many revisions have been made, it 
is time-consuming for the programmer, even when he is familiar with 
the program, to locate numbered statements and to generate new 
numbers. This manual describes how to use a program called TIDY 
(ref. 1) which edits and renumbers FORTRAN decks which have become 
difficult to read because o ^ many patches or revisions. TIDY reads 
the old FORTRAN program, routine by routine, and prepares a new 
program with the following characteristics: 

1. All statement numbers are left justified and increase in 
consecutive order, 

2. Statement numbers are assigned only to statements referenced 
by other statements. 

1. All statement numbers are updated to conform to the new 
statement number assignments. 

4. All format statements are collected from the body of each 
routine and placed at the end. 

5. Only those format. and continue statements actually 
referenced are retained. 

6. All excessive blanks are deleted from each statement, while 
blanks are inserted as necessary to ensure uniformity and to 
improve readability. 

7 . All statements in each new routine are labeled in columns 
73-8C with a letter-number combination. The letter 
indicates the routine and the number indicates the position 
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of the statement within the routine. Thus, 'A 3' indicates 
the third card of the first routine, while *C 1* indicates 
the first card of the third routine. 

B . TTHY accepts some, but not all, IBM dialect statements. The 
programmer who uses TTDY to process programs containing such 
statements should check the TIDY output carefully, 
o. TIDY offers a limited set of FORTRAN diagnostics, but it is 
possible tha+ certain dialect statements may be thrown out. 
by TTDY without a diagnostic. 

10. TIDY accepts and processes FORTRAN statements with up to 19 
continuation cards. 

general instructions on the use of TIDY are presented in 
Section 2. Also included in the manual are specific instructions 
on how to run TIDY in conversational and in batch modes. Control 

options, which permit modification of many of the default 
characteristics, are listed in Section S. A complete terminal 
session with related output is listed in Appendix A and a listing 
of the TTDY program can be tound in Appendix B. Illustrations used 
in this manual are specific to the Ames Research Center's IBM 


360/67 TSS system. 
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SECTION 2 

GENERAL INFORMATION 

A. Input to TIDY consists of FORTRAN decks as follows: 

1* A complete program with subroutines and functions, if any, 
in the order to be processed. 

2. A single subroutine. 

3. Several subroutines. 

4. More than one program in a single job. 

B. TIDY accepts control cards, identified by an **• in column 1, 
permitting the execution of certain options. (See Section 5.) 

1. Cards with an*** ir. column 1 which do not translate as TIDY 
control cards are ignored by TIDY and may be used to comment 
on the program. 

2. To make sure that such comments do not translate, punch **s* 
in columns 1 and 2. 

C. Each routine must be complete in itself and must terminate with 
an END card. 

D. The TIDY control cards * *LAST* and **STOP' in this order must he 
placed after the final END statement of the last routine. TIDY 
uses an input buffering routine which reads one card ahead of 
the statement being processed, so if both control cards are not 
used, the system monitor may abort TIDY abnormally because of an 
input 'End-Of-File* . 

E. In order to assemble an input dataset, the following must be 
observed : 

1. If the routine is a subroutine or function, type in the 
control statements to be used after the subroutine or 
function card. Follow the TIDY control cards by the rest of 
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the routine. If the *LABE option is used, the label oust be 
punched in columns 73-75 of the subroutine or function card. 

2. If it is a main routine, a blank card with a label in 
columns 73-75 followed by the *LABE control card may be 
used, or the control cards may be placed at the top of the 
dataset. (See Figure 2 for detail on *L ABE and *EXEM card.) 

3. Users of Ames Research Center TSS system must VSFILE the 
whole dataset if in conversational mode. 
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SECTION 3 

CONVERSATIONAL MODE 

This section applies specifically to Ames Research Center TSS 
users. Other users can easily make modifications for use 
on their own systems. 

A. TIDY is stored on IBM 360/67 TSS and has been permitted to all 
Ames users with read-only access. In order to use TIDY, first 
type: 

SHARE ALICE, FACAVB, T IB. TIDY (this need be done only once) 

B. The tapes (dataset names, SCRATCH. ONE etc., are user's choice) 
to be defined are: 

1. DDEF FT01F001, VS, SCRATCH. ONE 

2. DDEF FT02F001, VS, SCRATCH. TWO 

3. DDEF FT03F00 1 , VS, TIDY. INPUT 

4. DDEF FT06F001 , VS, TIDY. OUTPUT 

5. DDEF FT08F00 1, VS, TIDY. PUNCH 

C. Type in: 

1. JBLB ALICE 

2. LOAD BLOCK 

3. CALL MAINTIDY 

D. If printed or punched output is desired after the proqram has 
run, type: 

1. PRINT TIDY. OUTPUT, PRTSP=EDIT 

2. PUNCH TIDY. PUNCH 

E. If several consecutive TIDv lobs are to be run, Ames users 
should ABEND in between each iob. This will quarant.ee that 
scratch tapes 1 and 2 will be rewound and all buffers cleared. 
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SECTION 4 
BATCH MODE 

It Is assumed that the SHARE command as shown in Section 3 
has been issued at some previous time. 

A. Do not DDEP FT03FC01 or PT06F0P1. 

B. To obtain a punched deck, place the PUNCH command in front of 
the LOGOFF card. 

C. In order to set up a Batch job properly, see Pigures 1 and 2. 
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SECTION S 
0 P T T n N s 


The following control cards are recognised by TTDY. The 
default option is aiven first. 


cons 

FX AMPLE 

COMMENTS 

‘LAST 

‘LAST 

TFILS T T DY TiTIS IS THF END OF INPUT 

‘STOP 

‘STOP 

T^LI.S T ^ D Y TO STOP ALL PROCESSING 

* S KT n 

* S K T P 

SFTPs TO AN END CARD 

* NEWRO 

‘NEW ROUTINE 

RFSFTS EVERYTHING TO SMARTING VALUES 

‘COLT, 

‘NOCOtL 

‘COLLECT FORMATS 
‘NO COLLECT 

GROUPS FORMAT STATEMENTS AT END OF 
the d ou?T NF , OR LEAVES TH^M IN PLACE 

‘CONI 

‘nocomm 

‘COMMENTS 
‘NO COMMENTS 

TRANSMITS COMMENT STATEMENTS TO OUTPUT 
OF DELFT ES THEM. 

‘LIST 
* NQL 1ST 

‘LIST 
‘NO LT ST 

REQPESTS/SUPPRESSES A LISTING OF THE 
ORIGINAL CARDS 

‘ PRT N 
♦NOPRTN 

‘PRINT 
‘NO PRINT 

RFQUFSTS/SUPPRESSES A LT S T I NG OF BOTH 
OPIGINAT. AND NEW CARDS 

‘NORFFF 
* REF E 

‘NO REFERENCES 
‘REFERENCES 

S U PPR FSS FS/ REQUESTS A CROSS-REFERENCE 
TABLE OF OLD AND NEW STATEMENT NUMBERS 

‘ NOE XEM 
‘EXEN 

‘NO EXEMPT 
‘EXEMPT 

EYEMP^S NON-FXECUTABLE STATEMENTS 
(COMMON, DIMENSION, FTC. ) FROM PROCESSTN 

‘NORIGH 

♦RICH 

‘NO RTGHT AT JUST 
‘RIGHT ADJUST 

STATEMFNT NUMBERS START IN COL. 1 
STATEMENT NUMBERS END IN COL. 5 

‘LEFT 

♦N0L3TT 

*L r FT ADJUST 
♦NO LEFT ADJUST 

SAME AS ‘NO RIGHT 

STATEMENT NUMBERS START IN COLUMN 2 

‘CCLU 

* 

♦NOCQLU 

‘C0LUMN=7 
‘COLUMN= 1 2 
* N n COLUMN 

FORTRAN STARTS IN COLUMN 7 

FORTRAN STARTS IN COLUMN 12 

FTPST LETT FR OF FORTRAN IS NOT MOVED 

‘NOBASE 

‘BASE 

‘NO BASE 
‘BAS E= 100 

SAME AS *BASE=0 

SETS 7 FROTH STATEMENT NUMBER 

*STAT 

‘STATEMENT STEP=2 

SETS STATEMENT NUMBER INCREMENT 

‘SERI 
* N OS SRI 

‘SEPTAL 
‘NO SERIAL 

RFOUFSTS/S OPPRESSES SERIAL NAMES AND 
NUMRFFS IN COLUMNS 73-80 

‘NOLABE 

‘NO LABEL 

TTDY USES THR ALPHABET FOP LABELS 
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* L A R E 

♦LABEL 

♦ROUT 

♦POUTTN E=?6 

"IDS? 

•ID 

STFP-S 

* I DI N 

♦I'D 

INCREMENT = S 

♦NOWRTT 

♦ NO 

WPTTE 

♦ W R T T 

♦WRITS 


TIDY LOOKS TN COL. 71-go OF THE FIRST 
CARD IN THF ROUTINE FOR THE LABEL 

SETS ROUTINE COUNTER, WHICH HAY 
AIFECT THE LABET (SEE *NO LABEL) 

SETS tub; SERIAL NUMBER INCREMENT 

SAKE AS *ID STEP 

SUPPRESS FS/R EQfJ ESTS USER'S GUIDE AT 
BEGINNING OF OUTPUT, IBM 160/67 
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DDEF FT08F001, VS , TIDY. PUNCH 


DDEF FT02F001, VS, SCRATCH. TWO 


DDEF FT0.1F001 , VS , SCRATCH. ONE 


LOGON, ID, TITLE 


/ 


/ 


/ 


®/‘ 


/ 


© TSS COMMANDS 
(D ROUTINE 1 

® tidy control 

CARDS 

© ROUTINE 2 

© CONTROL CARD 

© ROUTINE 3 

© TIDY CONTROL 
CARDS 

© TSS COMMANDS 


Figure 1.- Batch job. 



c 


FORTRAN ROUTINE 


DIMENSION 


COMMON 


COMMON 


N 



(l) ROUTINE 

(D TIDY CONTROL CARDS 

0 LABEL MUST START 
IN COLUMN 73- 
MAXIMUM LENGTH IS 
3 CHARACTERS 
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APPENDIX A 

TERMINAL SESSION, AM FS RFSEARCH CENTER TSS 
The following example shows a TIDY program being executed from a 
terminal in conversational mode. Assume that the SHARE command (Section 
3) has already been issued. The subroutine below is to be TIDIED by 
incrementing statement and serial numbers by IP, and right-adjusting 
statement numbers. A cross reference table of old and new numbers will 
be listed. Tf a listing of the options, as shown in Section 5, is 
desired at the beginning of the TIDY output., the option ♦WRIT should be 
included. The original routine is: 


SUBROUTINE TRT AL(AP,BP,CP,M,N,L,XA , X B , XC , TROW , J COL) 
DIMENSION AP(inO) , BP (100) ,CP ( 100) 

DIMENSION XA (3 , 3) , XB (3) , XC (3) 

C 

C THE FOLLOWING ROUTINES ARE SAMPLES OF VECTOR- VECTOR 
C MULTIPLICATION AND OF MATRIX-VECTOR MULTIPLICATION. 

C 

SC FORMAT (5X,BE15. 6) 

DO 10 1=1, M 
DO 1 ,3=1,1 
J J=M* J -M + 1 
CP ( »3 .3 ) =0. 

DO 112 K = 1 , N 
KI=M*K-M+T 
KK = N* J-N +K 

CP (J J) =CF (JJ) +AP (KI) *DP (KK) 

112 CONTINUE 

WRITE (6,50) CP (J.3) 

1 CONTINUE 

10 CONTINUE 

DO 4 L = 1 , IRQ W 
3 FORMAT (5X,8E13.U) 

XC (L) = 0. 

DO 2 M=1,JCOL 

IF (M.LT.T.) AT R = X.A ( M , L) 

A I R = X A (L, M) 

Y C (L) =XC (L) + AT R* XD ( M) 

2 CONTINUE 

WRITE (6, 3) XC (L) 

4 CONTINUE 

RETURN 
END 
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After logging on, do the followinq: 


user: redit. sou rce . tria 1$ I (Redit subroutine to be cleaned up) 

SYS: I.OADTNG SOURCE . TF T AL $ $ 

EDIT 

user: po 100 (Point to first line of subroutine) 

SYS: SUBROUTINE TRT AL ( .AP , BP ,CP , >1 ,N , L , X A , XB , XC , I POW , JCCL) 


user: i 

SYS: INPUT 

user: *stat. = 10 

*idst= 10 
♦rich 
*rofe 

user: (press return to qet out 

SYS: EDI m 

user: b 

i 

SYS: INPT7T 

user: Mast 

* s t o p 

user: (press return to get. out 

SYS: FD IT 

user: vsfile tidy. input 

SYS: EDIT 


(Enter input mode) 


(To input the followinq options 
be sure to start in column 1) 

(Increment statement numbers hy 10) 
(Increment serial numbers by IP) 
(Right justify statement numbers) 
(Requests tbe table of statement 
numbers) 

of input mode) 


(Go to bottom of subroutine) 
(Enter input mode) 


(Tells Tidy to stop all processing; 
lets TIDY know there is no more 
input; if these cards are omittel, 
TIDY may not process the last 
cards of the FORTRAN deck) 

of inout mode) 


(Vsfile dataset named tidy. input) 


user: 


quit 


(This takes user out of redit mode 
and gets the system underscore) 
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u ser: 

u se r : 

SYS: 
user : 

s*s : 
user: 

sys: 

user: 

SYS : 
user: 

Note: 


(data definitions •for datasets to 
he used; dsnames are user's choice) 
ddef ft.O 1 fOO 1 , vs, scratch .one 
ddef ft P2f 00 1 , vs, scratch. t wo 
ddef ft 0 3f00 1 , vs, tidy . input, 
ddef ft06fC0 1 , vs, tidy. output 
ddef ft. 08fC n 1 , vs, tidy, punch 

1b lb alice (Moves a lice to the logical top 

of user’s gob library list) 

DDNAME=JBT,B000 1 

load block (Block data roust be loaded first) 

call raaint.idy (Initiates program execution; TIDY 

requires approximately SO cpu 
seconds per 1000 cards Drocessed) 

TERMINATED: STOP 

print t id y . out put , prt sp=ed it 

(Output will be printed; see 
Figure 3) 

PRT NT BSN = 1 2 34 , 200 LINES 

punch tidy. punch (Since this is a vsfile, do not 

list any options; a deck is 
punched only if this command 
is issued) 

PDNCH BSN= 1 2 35 

f 

logof f 


It is a good oract ice to check carefully all output from TIDY 
before issuing the PUNCH command to be sure that no FORTRAN 
errors or dialect statements have been detected and thrown out. 



* T I D Y * ROUTINE 1 PASS 1 PAGE 1 PAGE 1 

SUBROUTINE TRIAL(AP,BP,CP»M,N,L,XA,XB,XC,IROW,JCOL) 

0 SUBROUTINE T R I AL ( A P , BP , C P , M , N , L » X A , XB , XC , I R OW , JCOL ) 

1 *RIGH 

1 *STAT=10 
1 * I DST= 1 0 

1 #RE EE 

1 DIMENSION AP( 100 ) ,BP{ 100) ,CP( 100) 

2 DIMENSION XA(3,3),XBI3),XC(3) 

3 C 

4 C THE EOLLOWING ROUTINES ARE EXAMPLES OF VECT OR-VFC TOR 

5 C MULTIPLICATION AND OF MATR IX -VECTOR MULTIPLICATION. 

6 C 

7 50 FORMAT! 5X,8E15. 6) 

8 DO 10 1 = 1 ,M 

9 DO 1 J = 1 t L 


10 


JJ=M*J-M+I 

11 


CPI JJ ) =0. 

IP 


DO 112 K = 1 , N 

13 


K I=M*K-M+I 

14 


KK=N*J— N+K 

15 


CPI JJ )=CP( JJ J+APIKI )*BP(KK) 

15 

112 

CONTINUE 

17 


WRITE (6*50) CPIJJ) 

18 

1 

CONT TNUE 

19 

10 

CONTINUE 

20 


DO 4 L=1 , IROW 

21 

3 

FORMAT I 5X ,8E1 3.4) 

22 


XC (L ) = 0 . 

23 


DO 2 M= 1 f JCOL 

24 


IFIM.LT.L )AIR = XA(M»L) 

25 


A IR = X A ( L » M ) 

25 


XC (L ) =XC I L ) +AIR*XB IM ) 

27 

2 

CONTINUE 

2ft 


WRITE(6,3)XC(L) 

29 

4 

CONTINUE 

30 


RETURN 

31 


END 


r v 


Tidy 


u r 


Page 



ROUTINE 1 PASS 1 PAGE 2 
SUBRUU TINE T R I AL { A P , 6 P , C P , M, N, L , XA , X B , XC , I ROW , JCOL ) 

STATEMENT NUMBER DIRECTORY 


NEW 


OLD 

LOC 

OLD 

LOC 


NEW 

10 

= 

112, ( 

17 ) . 

1, ( 

19) 

— 

20 

20 

= 

1 , ( 

19) . 

2, ( 

28 ) 


40 

3 0 

~ 

10, ( 

20) . 

3, ( 

0) 

= 

70 

40 

= 

2, { 

28 ) . 

A, ( 

30 ) 

= 

50 

50 

= 

A, ( 

30) . 

10, ( 

20) 

- 

30 

60 


50, { 

0) . 

50, ( 

0) 

- 

60, 

70 


3, ( 

0). 

112, ( 

17) 

= 

10 


OLD STATEMENT NUMBERS NOT APPEARING IN THIS DIRECTORY 
WERE NOT REFERENCED AND HENCE ARE DELETED. 


F i 


3 . - Out put 


Ti 


( cc nt . ) 


PAGE 2 


91 asej 



n o o o 


* T I 0 Y * ROUTINE 1 PASS 2 PAGE 1 PAGE 3 

SUBROUTINE TRIAL ( A P , B P , C P , M , N , L ♦ X A , X B , XC , I ROW , J COL ) 


SUBROUTINE TRIAL ( A P ,B P , CP , M , N , L 

,XA ,XB,XC» IROW , JCOL ) 

A 

10 

DIMENSION API100), BPIIOO), CP(IOO) 

A 

20 

DIMENSION X A I 3 » 3 ) » XBI3), XC(3) 


A 

30 



A 

40 

THE FOLLOWING ROUTINES ARE EXAMPLES 

OF VECTOR-VECTOR 

A 

50 

MULTIPLICATION AND OF MA TR I X -VECTOR 

MULTIPLICATION. 

A 

60 



A 

70 

DO 30 1=1, M 


A 

80 

DU 20 J= 1 , L 


A 

90 

JJ=M*J-M+I 


A 

100 

CPI JJ)=0. 


A 

110 

DO 10 K = 1 , N 


A 

120 

K I =M*K-M+I 


A 

130 

KK=N*J-N+K 


A 

140 

CPI J J ) =C P ( J J J+APIKI )*BP(KK) 


A 

150 

10 CONTINUE 


A 

160 

WRITE (6,60 ) CPI JJ ) 


A 

170 

20 CONTINUE 


A 

180 

30 CONTINUE 


A 

19 0 

DO 50 L=1 , IROW 


A 

2 00 

XC I L ) =0 . 


A 

210 

DO 40 M=1 , JCOL 


A 

220 

IF (M.LT.L) AIR=XA(M,L) 


A 

230 

AIR=XA(L,M) 


A 

2 40 

XC I L )=XC (L) +AIR*XB(M) 


A 

250 

40 CONTINUE 


A 

260 

WRITE (6,70) XCIL) 


A 

270 

50 CONTINUE 


A 

280 

RETURN 


A 

290 



A 

3 00 

60 FORMAT (5X,8E15.6> 


A 

310 

70 FORMAT (5X,8E13.4) 


A 

320 

END 


A 

330- 


F i rum 3 . - Output f r ei : T i d y 


( cont . ) 
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* T I D Y * ROUTINE 2 PASS1 PAGE 1 

*LA ST 

0 *L AST 

NO DIAGNOSTIC MESSAGES WERE GENERATED DURING THIS TIDY RUN. 

33 CARDS WERE PUNCHED. 

TIDY MK- 2408 7 0 . 


cure 3. 


1 : j t ; ) ; : t 


i I'Ll’ 


( cor t . ) 


Pape 



APPENDIX B 
PROGRAM LISTING 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 


r 


c 


c 

e 

c 


*** T I D V * • * • 

A FORTRAN PROGRAM to RENUMBER AND OTHERWISE clean up 
OLD AND TIHEO FORTRAN SOURCE PROGRAMS. 

TIOY ACCEPTS ASA FORTRAN WITH 19 CONTINUATION CARDS 
AS WELL AS SOME IBM AND COC DIALECT FORTRAN STATEMENTS 

THIS PROGRAM HAS BEEN REVISED FOR IBM 360/67 BY ALICE 
V BARLOW. NASA AMES. SUMMER 1972 

IN ADOITION TO renumbering. 

TIDY PROVIDES A LIMITED SET OF FORTRAN 
DIAGNOSTICS. 

ASA FORTRAN (COMM. ACM OCTOBER 1964.) 


t::3:sB8SES8iiiiesssnsiiiss<::8it33s 


anssssBsss: 


• PROGRAM • 

• AND SUBROUTINES BY * 

* HARRY M MURPHY * 

• AIR FORCE WEAPONS LABORATORY • 

• KIRTLAND AIR FORCE BASE * 

• NEw MEXICO • 

o 1 9 6 6 * 


COMMON 

1 JINT < 1600 ) . JOB ( BO ) .KHUFF(BO) 

2 .LDEFOOOO) .LREF(IOOO) 

DIMENSION K1M(B0.20) 

EQUIVALENCE (JINT.K IM> 


COMMON /LARGE/ NWOROS • I OU T ( 1 326 ) 


COMMON 

1 

/MISC/ 

ICOL 

. IF IN 

» IPASS 

. ISTaR 

2 

» JCOL 

• JMAX 

*KILI (A) 

• KOL 73(3) 

3 

. L 7 72 

.LAST 

• LCPY 

■ LOOS (10) 

4 

» LF I H 

.LOUAL 

.MEOF 

.MILDO 

5 

. MLGC 

. MP2 

•MTRAN 

. NBLC 

6 

*NCO 

. NDEF 

• NDOS 

.NINS 

7 

.NPAR 

. NPUN 

.NHEC 

.NREF 

R 

.NRT1 

* NR T 2 

•NTFMP (S) 

• NXEQ 

9 

•NTRAN 

.KENO (3) 

• MPUN 

. MPR I N 


EQUIVALENCE « K X L I ( 1 ) *KLASS) » < K 1 L I <2 ) * JT YPE > 
EQUIVALENCE (K IL I (3) »L IS) . ( K 1 L I ( 4 ) • I M A X ) 

COMMON /Alpha/ K6L*KDIG (10) tKABC (26) *KSPK ( 12) 

COMMON /CONTOY/ NKTHL »K TRL 


RFAL*6 MSG 

COMMON /DIOMSG/ MSGi 10*30 ) .NMSd 




C 




A 

62 




COMMON /HOL2/ KBL2.KLR2.KLP2.KRP2. 

KERM 


A 

63 

A 

1 

C 




A 

64 

A 



COMMON / I N I T/ LINE.MPAGE.NPAGE.KOOE 


A 

65 

A 

3 

C 




A 

66 

A 

4 


COMMON /KSTCOM/ NKST »KST 1 13*65) 



A 

67 

A 

b 

c 




A 

68 

A 

6 


COMMON /choice/ 



A 

69 

A 

7 


1 KB 1 5 * KPUN 

» MCOL 

• MCOM 

A 

70 

A 

H 


2 .MEX * KD79 

.MLBL 

•MSTOP 

A 

71 

A 

9 


3 .MLIST .NROUl 

• MREF 

*MSKP 

A 

72 

A 

10 


4 • KD 1 5 .MSER 

*MRI T 

• JUST 

A 

73 

A 

1 1 


5 .KPRIN .NOPT 



A 

74 

A 

12 

c 




A 

75 

A 

13 

C 



388 

A 

76 

A 

14 

c 

* TIDY MAIN P 

R 0 G R A M 

• 

A 

77 

A 

IS 

c 

8Et8I8tI8:388SatSC8888l38l88l88l8B(8ll8l 

A 

70 

A 

16 

c 




A 

79 

A 

1 7 


CALL READER 



A 

80 

A 

18 


10 CALL PASS 1 



A 

81 

A 

19 


IF (MSTOP) 60.20*20 



A 

82 

A 

20 


20 CALL EDIT 



A 

83 

A 

21 


IF (MP2) 30.10*30 



A 

64 

A 

22 


30 IF (MREF) 40.50*40 



A 

85 

A 

23 


40 CALL ROIR 



A 

86 

A 

24 


SO CALL PASS2 



A 

87 

A 

25 


IF (MSTOP) 60*10*60 



A 

8B 

A 

26 


60 CALL IOSYS1 (0*0*0) 



A 

89 

A 

27 


CALL IOSYS2 (0*0*0) 



A 

90 

A 

20 


IF (NMSG) BO.0O.7O 



A 

91 

A 

29 


70 WRITE (6.100) NMSG 



A 

92 

A 

30 


GO TO 90 



A 

93 

A 

31 


00 WRITE (6.110) 



A 

94 

A 

32 


90 WRITE (6.120) NPUN 



A 

95 

A 

33 


STOP 



A 

96 

A 

34 

C 




A 

97 

A 

35 


100 FORMAT (16H0W A R N I N G ..Ib.bBH 

DIAGNOSTIC 

MESSAGES HAVE BEEN G 

A 

90 

A 

36 


1ENERATED IN THIS TIOY RUN.) 



A 

99 

A 

37 


110 FORMAT I60H0NO DIAGNOSTIC MESSAGES 

WERE GENERATED OURING THIS TIDY 

A 

100 

A 

J0 


1 RUN.) 



A 

101 

A 

39 


120 FORMAT (1H0.I5.20H CAROS WERE PUNCHED. / 16H0T IOY MK-240870 . / 1H 1 ) 

A 

102 

A 

40 


END 



A 

103 

A 

41 


SUBROUTINE READER 



B 

1 

A 

4 2 

c 

THIS ROUTINE READS CARDS ONE BY ONE FROM TAPE2 

. UNTIL IT FINDS A 

B 

2 

A 

43 

c 

NON-HLANK ONE * THEN RETURNS. IF 

IT FINOS AN 

ENO-OF-FILE. OR IF 

B 

3 

A 

44 

c 

KOOE IS NEGATIVE. IT GENERATES A *STOP CARD. 


B 

4 

A 

4b 


COMMON 



B 

5 

A 

4b 


1 JINT (1600) ♦ JOB ( BO ) 

•KBUFF (80) 


B 

6 

A 

4 7 


2 *LDEF (3000) *LREF (1000) 



B 

7 

A 

48 


DIMENSION K I M ( BO * 20 > 



B 

8 

A 

49 


EQUIVALENCE(JINT.KIM) 



B 

9 

A 

SO 

c 




B 

10 

A 

b 1 


COMMON /LARGE/ NMORDS 

* IOUT ( 1326) 


B 

1 1 

A 

52 

c 




B 

12 

A 

S3 


COMMON /MISC/ 



B 

13 

A 

b4 


1 ICOL * IF IR 

•IPASS 

•istar 

B 

14 

A 

b5 


2 .JCOL .JMAX 

*K IL I 14) 

•KOL73 (3) 

B 

15 

A 

56 


3 *L772 .LAST 

• LCPY 

•LOOS (10) 

B 

16 

A 

b? 


4 »lfir *lqual 

• MEOF 

.MILDO 

B 

17 

A 

S5 


5 .MLGC *MP2 

•MTRAN 

• NBLC 

B 

18 

A 

b9 


6 .NCD .NDEF 

• NDOS 

• NINS 

B 

19 

A 

60 


7 .NPAR .NPUN 

• NREC 

• NREF 

B 

20 

A 

61 


8 . NR T 1 .NRT2 

•NTEMP (5) 

• NXEQ 

B 

21 


f\J 

O 



9 

* NTRAN » kend ( 3 ) 

*MPUN 

. MPR I N 


b 

22 

EQUIVALENCE (KILI U> .KLASS) ♦ t KILI (2) * JT YPE ) 



b 

23 

EQUIVALENCE (KILI (3) *LlS) • (KILI <*> • JMAA) 




24 






H 

2b 

COMMON 

/ALPHA/ KBL.KDIG( 10) .K ABC (26) .KSPK (12) 



b 

26 






8 

27 

COMMON 

/CONTDY/ NKTRL.KTRL (4.25) 




6 

28 






8 

29 






b 

30 

COMMON 

/HOL2/ K8L2.KLR2.KLP2 .KRP2.KERM 



8 

31 






M 

3/ 

COMMON 

/ I Nl T / LINE.MPAGE.NPAGE.KOOE 




8 

33 






8 

34 

COMMON 

/KSTCOM/ NKST.KST ( 13.65) 




8 

35 






B 

36 

COMMON 

/CHOICE/ 




B 

37 

1 

KB 1 5 . KPUN 

fMCOL 

.MCOM 


b 

38 

2 

.MEX *K079 

• MLHL 

.MSTOP 


b 

39 

3 

.mlist .NROUI 

.MREF 

. MSKP 


a 

40 

4 

.KOI 5 .MSEH 

.MR IT 

• JUST 


ti 

41 

5 

. KPR I N .NOPT 




ti 

42 






c 

43 

IF (KODE) 40.10*10 




8 

44 

10 P£ Af) ( 3 

.60.EN()s40)KBUFF 




8 

45 

IF (KBUFF ( 7 ) -KBL ) 50.20.50 




8 

46 

20 DO 30 

1=1.72 




B 

47 

IF (KBUFF ( I) -KBL) 50.30.50 




B 

48 

JO CONTINUE 




a 

49 

WRITE 

(6.70) 




0 

50 

CALL RAGE (1) 




R 

5 1 

GO TO 

10 




H 

52 

40 KODE=- 

1 




8 

53 

MSTOP= 

♦1 




h 

54 

KBUFF ( 1 J sKSPK (8) 




h 

55 

KBUFF (2) «KA8C (19) 




8 

56 

KBUFF ( 3 > ®K ABC (20) 




b 

57 

KBUFF (4) sKAHC (15) 




b 

58 

KBUFF (5) = K ABC ( 16) 




b 

59 

SO RETURN 





8 

60 

60 FORMAT 

(80AI) 




8 

61 

70 FORMAT 

( 35X • 2 JH ( BLANK CAR 

U ) ) 



8 

62 

end 





0 

63- 

SUBROUTINE PASS1 




C 

1 






C 

2 

THIS ROUTINE COLLECTS STATEMENT NUMBERS. MAKES 

DIAGNOSTIC 

COMMENTS 

c 

3 

«mn SETS UP the Fortran statements 

IN A FORM SUITABLE FOR 

PASS2. 

c 

4 

<*, 

COMMON 





c 

6 

1 

JINT (1600) . JOB ( 80 ) 

•KBUFT (80) 



c 

7 

2 

•LDEF ( 3000 ) .LREF(IOOO) 




C 

8 

0 1 MENS I ON KIM(80.20) 




c 

9 

EQUIVALENCE (JINT.KIM) 




C 

10 






C 

11 

COMMON 

/LARGE/ NWORDS. IOUT ( 1326) 




c 

12 

COMMON 

/NEK/ NOU T ( 1 326 > 




c 

1 j 

REAL*B 

NOUT 




c 

14 






c 

lb 

COMMON 

/MISC/ 




C 

1 6 

1 

I COL . I F I R 

. I P A S5 

« ISTAR 


c 

1 r 

2 

♦ JCOl. * JM A X 

•KILI (A) 

. KOL 7 3(3) 


C 

18 

3 

.1 772 .LAST 

• LCPY 

.LOOS(IO) 


c 

i V 

4 

»lfir .lqual 

• MFOF 

.MILDO 


c 

20 

5 

»MLGC . MP2 

» MTR AN 

»N8LC 


c 

C 4 






NREFsQ 


c 

85 


280 

CONTINUE 

C 

146 



NTRAN=0 


c 

8b 

c 



C 

149 



NXEQ*0 


c 

67 

c 


BLANK COMMENT. TEST IF TWO PREVIOUS CARDS WERE BLANK 

c 

150 



GO TO 50 


C 

88 

c 



c 

151 

c 




c 

89 



NBLC*NBLC*1 

c 

152 

c 


ILLEGAL FIRST CHARACTER. 


c 

90 



IF (N8LC-3) 290.50.50 

c 

153 


30 

JGOOF *9 


c 

91 


290 

JINT ( 1 ) «KABC (3) 

c 

154 

c 


WRITE DIAGNOSTIC 


c 

9? 



JMA X ® 7 

c 

155 


40 

CALL DIAGNO (JGOOF) 


c 

93 


300 

KL ASS® 1 

c 

156 

c 


GET NEW CARD. 


c 

94 


310 

JTYPE«0 

c 

157 


50 

call skaro 


c 

*5 



L 1 5® 0 

c 

158 



NRECbNREC*! 


c 

96 

c 



c 

159 



DO 60 I»1«!MAX 


c 

97 

c 


WRITE STATEMENT IMAGE ON TAPE 1 FOR PASS 2. 

c 

160 


60 

I OUT ( I ) ®K6L 


c 

98 

c 



c 

161 

c 




c 

99 



IMAXsjMAX 

c 

162 

c 


LOOK FOR • IN COLUMN 1 


c 

100 



CALL IOSYS1 (2.KJL I »4) 

c 

163 

c 




c 

101 



CALL IOSYS1 (2.JINT.I MAX ) 

c 

164 



IF ( JINT ( 1 ) -KSPK (8) ) 140, 70.140 


c 

102 



NRT1»NRT 1 ♦ 1 

c 

165 


70 

CALL CONTRL 


c 

103 



GO TO 50 

C 

166 



IF (NOPT.EO.l) WRITE (6.2850) (NOUT ( I ) ♦ I = 1 .NWQRDS) 


c 

1 04 

c 



c 

167 



NOPTeO 


c 

105 

c 


NON-BLANK COMMENT. 

c 

168 



IF (1STAR) 80*120*130 


C 

106 

c 



c 

169 

c 


CONTROL CARD FOUND AND EXECUTEO. 


r 

107 


320 

NBLC*0 

c 

170 


HO 

IF (MSTOP) 90*100.90 


C 

108 



IF { JMAX-73 ) 300*330,330 

c 

171 


90 

RETURN 


c 

109 


330 

JMAX®72 

c 

172 


100 

IF (MSKP) 110.50.110 


c 

110 



GO TO 300 

c 

173 


no 

MP ?u 0 


c 

111 

c 



c 

174 



CALL NOPRO (0) 


c 

112 

c 


NON-BLANK IN STATEMENT FIELD, 

c 

175 



GO TO 10 


c 

113 

c 



c 

176 

c 


CONTROL CARD FOR DELAYED EXECUTION. SAVE 

FOR PASS 2. 

c 

114 


340 

I COL *6 

c 

177 


120 

KL ASS*0 


c 

115 



DO 350 I*JCOL»JMAX 

c 

170 



GO TO 310 


c 

116 



I COL® I COL ♦ 1 

c 

179 

c 


• IN COL 1. NOT A CONTROL CARD. PUT OUT 

literallt 

c 

117 


350 

IOUT ( icol)«jint (1) 

C 

180 

c 


UNLESS • IN COL 2. ALSO. 


c 

118 



IOUT ( 1 ) ®KABC (3) 

C 

181 


130 

IF { JINT (2) -KSPK (8) ) 300.50.300 


c 

119 



IF (ICOL-73) 370,360,360 

c 

182 

r 




L 

120 


360 

ICOL®72 

c 

183 

c 


•STOP COMMAND EXIT. 


c 

121 


370 

I MAX® I COL 

c 

184 

c 




c 

122 



KLASSai 

c 

185 

c 


NO • IN COLUMN 1. LOOK FOR C» D» I. F. . . OR S. 


c 

123 



JTYPE«0 

c 

186 

c 




c 

124 



L 1 5®0 

c 

187 


140 

IF (JINTU)-KBL) 150.380.150 


c 

125 



CALL IOSYS1 (2»KILI*4) 

c 

188 


150 

IF I JINT(1>-KABC<3) ) 160.220,160 


c 

126 



CALL IOSYS1 (2. IOUT. IMAX) 

c 

189 


160 

IF (JINT ( 1>-KABC(4) ) 170.210.170 


c 

127 



NPT 1 ®NRT 1*1 

c 

190 


170 

IF ( JINT ( 1 ) -KABC (9) ) 180,210.180 


c 

128 



GO TO 50 

c 

191 


iao 

IF ( JINT ( 1 ) -KABC (6) 1 190.210.190 


c 

129 

c 



c 

192 


190 

IF i JINT { 1 ) "KSPK (10)) 200.320.200 


c 

130 

c 


Eis.iis:3iC3it8s:tistisifirssii:.ti:i>itiiiiin 

c 

193 


POO 

IF ( JINT ( 1 )-KSPK (9) ) 380,320.380 


c 

131 

c 


« • 

c 

194 


210 

CALL DIAGNO (8) 


c 

132 

c 


* START PROCESSING OF FORTRAN CARDS * 

c 

195 



GO TO 50 


C 

133 

c 


« • 

c 

196 

c 




c 

134 

c 


::3:s:::s33isii3Z>sisliEi«iciiB3B3isi>33Bis:i» 

c 

197 

c 


COMMENT CARO. DO WE SAVE THEM... 


c 

135 

c 



c 

198 


220 

IF ( MCOM ) 270,50,230 


c 

136 


380 

IF ( JMAX-8 ) 40,390.390 

c 

199 

c 


CHECK COL 2-6. DELtTE •, SKIP ON ANYTHING ELSE. 

c 

137 


390 

nfort»nfort.i 

c 

200 


230 

DO 260 JCOL *2 » 6 


c 

13b 

c 


CHECK AND CHANGE HOLLERITH FIELDS 

c 

201 



IF (JINT ( JCOL ) -KBL ) 240.260.240 


c 

139 



call holscn 

c 

202 


240 

IF (JINT (JCOL) -KSPK (8) ) 340.250.340 


c 

140 

c 


CLEAR FLAGS 

c 

203 


250 

JInT(JCOL>«KRL 


c 

141 



IF (MLGC) 400.410.400 

c 

204 


260 

continue 


c 

142 


400 

M TRAN® 0 

c 

205 

r 




c 

143 



mlgc*o 

c 

2 06 

c 


LOOK FOR BLANK COMMENT 


L 

144 


410 

ntran»mtran 

c 

207 

c 




c 

145 



MTRAN = 0 

c 

208 


270 

0(1 280 JCOL a 2 , JMA X 


c 

148 



MEOF«-l 

c 

209 



IF (JINT {JCOL > -KBL> 320.2h0.320 


c 

14 / 



JGOOF® 1 

c 

210 


K> 

NJ 



c 


CLEAR STATEMENT AND REFERENCE NUMBERS 

C 

211 



DO 660 J* JJ * JMAX 

C 

274 



L 1 5*0 

C 

212 



JNT * J I NT ( J ) 

C 

275 



L772=0 

C 

213 



DO 620 1*1.11 

C 

276 

c 


CLEAR BLANK COMMENT COUNTER 

C 

214 



IF ( JNT-KSPK ( I ) ) 620.630.620 

c 

277 



NBCOLD*NBLC 

C 

215 


620 

CONTINUE 

C 

278 



NBLC*0 

C 

216 



GO TO 660 

c 

279 

c 


SET POSITION COUNTERS, 

C 

217 


630 

IF (1-2) 670.640.670 

c 

280 



JCOL* 7 

c 

218 


640 

IF (NCOMA-1) 650.650.670 

c 

281 



ICOL*JUST-l 

c 

219 


650 

NCOMA*NCOMA*l 

C 

282 



IF (JUST) 450.420.450 

C 

220 


660 

CONTINUE 

c 

283 


♦ 20 

I COL*6 

c 

221 

r 


O.K, THIS IS A DO STATEMENT, 

C 

284 


430 

IF ( JINT < JCOD-KBL) 450*440*450 

c 

222 



KL ASS* 1 0 

c 

285 


440 

JCOL* JCOL ♦ 1 

c 

223 



JTYPE-14 

c 

266 



! COL* I COL * 1 

c 

224 



GO TO 860 

c 

287 



GO TO 430 

c 

225 

c 


ticisi.iiiiiBiitei.tajitiiMmiiimaiaiimaiii 

c 

288 

c 


ANALYSIS OF LOGICAL IF RE-ENTERS HERE. 

c 

226 

c 


• « 

c 

289 


450 

CONTINUE 

C 

227 

c 


* START PROCESSING OF ARITHMETIC STATEMENT. • 

c 

290 

c 



c 

228 

c 


• • 

c 

291 

c 


SELECT NEAT COURSE ON BASIS OF FIRST SPECIAL CH. 

C 

229 

c 


aaBiEBBixsaiiaaasiaaaaBiisaiaciaaiiisaaaiaiiiBaia 

c 

292 

c 


* * < 

C 

230 


670 

KLASS«6 

c 

293 



GO TO (560. 730. 460. 730. 30. 30*30*30*30. 30*30. 730) *IFIR 

c 

231 



JTYPE*0 

c 

294 

c 



C 

232 


680 

CALL COPY (-1) 

c 

295 

c 


FIRST IS (. LOOK FOR ) 

c 

233 



IF (MEOF) 680.710.690 

c 

296 


460 

nf«lfir 

C 

234 


690 

IF (LCPY-KERM) 700*710.700 

c 

297 



NPAR*i 

c 

235 


700 

ICOL«ICOL*l 

c 

298 



JGOOF *2 

c 

236 



MEOF*- 1 

c 

299 


470 

NF *NF ♦ 1 

C 

237 



GO TO 680 

c 

300 



IF (NF-JMAX) 480.480.40 

c 

238 


710 

IF (MLGC) 960.720.960 

c 

301 


480 

J T * J 1 NT (NF) 

C 

239 

c 



c 

302 



IF ( JT -KSPK ( 5 ) ) 490.510.490 

c 

240 

c 


get statement number. 

c 

303 

c 


MAYBE NESTED. LOOK FOR ( 

c 

241 

c 



c 

304 


490 

IF (JT-KSPK(3») 470.500.470 

c 

242 


720 

JCOL* 1 

c 

305 


boo 

NPAR*NPAR. 1 

C 

243 



CALL RSTAT 

c 

306 



GO TO 470 

c 

244 



L 1 5«L 772 

c 

307 


510 

NPAR*NPAR-1 

c 

245 



GO TO 960 

c 

308 



IF (NPAR) 470.520.470 

c 

246 

c 



c 

309 

c 


THIS IS THE ENU OF ThE FIRST STACK OF PARENS. 

C 

247 

c 


BEanaaxsaBsaBBaBstacBaaEBBitXEfaacaadai 

c 

310 

r 


SKIP BLANKS. 

c 

248 

c 


• • 

c 

311 


520 

NF =NF ♦ 1 

C 

249 

c 


• END OF ARITHMETIC PROCESSING • 

c 

312 



IF (NF-jmax) 530.730.530 

C 

250 

c 


• START FORTRAN STATEMENT PROCESSING • 

c 

313 


530 

IF (JINT(NF)-KBL) 540.520.540 

c 

251 

c 


• • 

c 

314 

c 


IF NEAT CHARACTER IS NOT * PROCESS AS FORTRAN STATEME 

c 

252 

c 


sacaaaaBiBBBaeaBBBaaacaBBaBaaaaBBaBBixBa 

c 

315 


540 

IF (JINT (NF)-KSPK ( 1) ) 730.550.730 

c 

253 

c 



c 

316 

r 


OTHERWISE* PROCESS AS ARITHMETIC REPLACEMENT. 

c 

254 

c 


CHECK EVERY LISTED STATEMENT TYPE. 

c 

317 


550 

LQUAL*NF 

c 

255 


730 

DO 780 ITYPE«1.NKST 

c 

318 



GO TO 670 

c 

256 



NINS*KST(11.ITYPE) 

c 

319 

c 



c 

25 7 



LAST=JCOL-l 

c 

320 

c 


FIRST SPECIAL CH, IS =. 

c 

258 

c 



c 

321 


560 

LQUAL*LFIP 

c 

259 



00 770 1*1 • N I NS 

c 

322 

c 


IS IT A DO STATEMENT. IF NOT. GO TO ARITHMETIC PROC . 

c 

260 


740 

last-last.i 

c 

323 

c 


LOOK FOR -D- -0- 

c 

261 



IF (LAST-JMAA) 750.750.780 

c. 

324 



I=KABC (4) 

c 

262 


750 

IF (JINT (LAST) -KBL) 760.740.760 

c 

325 



DO 600 J* 7 . JMA A 

c 

263 


760 

IF (JINT (LAST)-KST ( I • I TYPE ) ) 780.770.780 

c 

326 



IF ( J I NT ( J ) -KBL ) 570.600.570 

c 

264 


770 

CONTINUE 

c 

327 


570 

IF (JINT(J)-I) 670.580.670 

c 

265 

c 


FOUND IT, 

c 

328 


560 

IF ( I-KABC (15)) 590*610.590 

c 

266 



KLASS=KST (12.ITYPE) 

c 

329 


590 

I=KA8C (15) 

c 

267 



JTYPE*KST ( 13. ITYPE) 

c 

330 


600 

CONTINUE 

c 

268 



IF (MLGC) 790.810.790 

c 

331 



GO TO 670 

c 

269 

c 


LOOP FOR NEAT STATEMENT. 

c 

332 

r 


FOUND -D- -0- NOW LOOK FOR COMMAS. ALLOW EXACTLY 1 

c 

270 


780 

CONTINUE 

c 

333 

r 


0« 2 COMMAS. 1 EUUALS. AND NO OTHER SPECIAL CH, 

c 

271 

c 


NOT IN TABLE. REJECT IT ENTIRELY. 

c 

334 


610 

NCOMAaO 

c 

272 



GO TO 40 

c 

335 



Jj*LOUAL* 1 

c 

273 

c 



c 

336 


K> 

0-J 



c 

c 


c 

c 

c 

c 


r 

c 


c 

c 


c 

c 

c 


c 

c 

c 

r 

C 

c 

c 

r 

C 

c. 

c 

c 

r 

c 

c 

r 

c 

c 

c 

c 

c 


THIS IS A FORTRAN STATEMENT FOLLOWING A LOGICAL IF. C 


CHECK THE KLASS. J; 

790 IF (KL ASS-6) 40*910*800 I 

800 tF (KLASS-7) 40.910*40 £ 

THIS IS A FORTRAN STATEMENT. c 

SET IMAX IN CASE THIS STATEMENT IS PUT OUT DIRECT*. C 

010 IMAXsJMAX C r 

CHECK FOR EXEMPT STATEMENT. c 

IF (KLASS-3) 850. 820.860 £ 

820 DO 830 J® 1 • 6 £ 

830 J I NT ( J ) »KBL _ 

IF (MEX) 040*910*840 _ 

THIS IS A NON-EXECUTABLE (KLASS 3.) FORTRAN STATEMENT C 
ANO THE EXEMPT FLAG IS SET. SO PUT IT OUT OIRECTLY. C 
040 CALL IOSYS1 (2.KILI.4) £ 

CALL IOSYS1 (2.JINT* JMAX) ^ 

NRT1*NRT1*1 z. 

GO TO 50 £ 

GET STATEMENT NUMBtR UNLESS FOLLOWING LOGICAL IF. C 

850 IF (MLGC) 910*860*910 £ 

860 DO 900 1*1,5 

IF (JINT(I)-KBL> 870.900*870 £ 

870 DO 880 J-1.10 

IF ( JlNT ( I ) -KDIG ( J) ) 880.890.880 J 

8B0 CONTINUE 

GO TO 910 ” 

890 L 1 5*L 15* 1 0 * J-l *1 

900 CONTINUE £ 

GO TO INDIVIDUAL STATEMENT PROCESSING BY jTYPE • C 


910 GO TO ( 99Q . 1020. 1 030 * 1 040 » 1 060 * 1080 * 1 120 * 1 180 • 1230 * 1270 * 1320 » 1 390 ♦ C 
11400.1410.1570.1590.1770.1790.1800.1890.1910.1920,1950*2010.2130.2 C 
2 170 .2 180. 2 190 .2220. 2230 *2240,2380. 2390 ,2470 .2480. 2520. 2650. 2680 . 27 C 


370.2780,2790,2800.2830.2510.2640) . JTYPE £ 

_- 3 ~-- s * c= 30s=a===BS=3S*ssa*sss**=a=a=oaBc==a======*=3 aaaaaaa = aaa * C 

r ’ * c 

• AT THIS POINT, COMMENTS AND ARITHMETIC STATEMENTS HAVE BEEN * C 

« PROCESSED. The STATEMENTS HAVE BEEN CLASSIFIED AS I TYPE AND * C 

• KLASS. THE LAST SYMBOL USED IN SCANNING THE FORTRAN STATE- • C 

* MENT IS KST (NINS. ITYPE) * AND WAS FOUND AT JlNT (LAST ) . THE * C 

« FIRST SPECIAL CHARACTER, IF ANY. IS KSPK(IFIR). LOCATED AT * C 

* JINT(LFIR). IF a STATEMENT * J 

o NUMBER IS PERMITTED, IT IS IN L15, !► NOT. L15*0. c 

« JCOL IS ON THE CURRENT CHARACTER IN THE INPUT STRING (THE • C 

* FIRST. UNLESS FOLLOWING A LOGICAL IF). ICOL IS ON TmE MOST • C 

• RECENT CHARACTER TO BE PUT INTO THE OUTPUT STRING (E.G. 6.) • C 

___ == _ J . a _ Bn , == 3, == r = a3a=33S3SS===S=3=S=SS=C8===aa8=»C=0*3=3=3SS=3S C 

ILLEGAL JTYPE Z 

WRlTt (6,2870) JTYPE ~ 

stop J: 

COPY REST OF CARO. £ 

920 I COL a I COL • 1 

930 CONTINUE _ 

940 call copy (0) J: 

IF ( KL ASS-4 ) 970.960,960 ~ 

DLIST HANDLES THE STATEMENT NUMBER. c 


337 

338 

339 

340 

34 1 

342 

343 

344 

345 

346 

347 
340 

349 

350 

351 

352 

353 

354 

355 

356 

35 7 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 
300 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 
39 ** 

396 

397 
390 
399 


C 


CONTINUE 

CALL DLIST (MERR) 

IF (MERR) 50*970.50 
iMAXalCOL 

WRITE STATEMENT IMAGE ON TAPE1 FOR PaSS 2. 
CALL .IOSYS1 (2*K IL I *4 ) 

CALL IOSYSI (2.IOUT.IMAX) 

NPTlaNRTl .1 

GO TO 50 

JTYPE * 1 

ASCENT. MACHINE pIDENT. 

(MUST BE THE FIRST CARD OF THIS PASS.) 

I IF (NFORT-1) 1000.1010,1000 
I CALL DIAGNO (14) 

) CALL DIAGNO (26) 

CALL NOPRO (0) 

CALL HEADER 
RETURN 


Call copy (6) 

CALL RSTAT 
CALL RLIST 
IOUT (ICOL*2) -KLR2 
IOUT (ICOL*3>»L772 
I COL - 1 COL *4 
CALL COPY (2) 

I COL * I COL ♦ 1 
IF (MEOF) 940,40.40 

***** jTYPE * 3 

BACKSPACE, COMPLEX. EXTERNAL, INTEGER, LOGICAL* PAUSE. 

i CALL COPY (NINS) 

GO TO 920 


BLOCK DATA 

IF (NFORT-1) 40.1050,40 
CALL COPY (5) 

I COL*ICOL ♦ I 
CALL COPY (4) 

IMAXalCOL 
GO TO 980 


•*•*• JTYPE - S 

BUFFER IN (I.P) ( A » B ) /// BUFFER OUT (I.P) (A.B) 

CALL COPY (6) 

ICOL a ICOL*l 

NINS IS 9 FOR BUFFERIN. 10 FOR 8UFFEROUT 
CALL COPY (NINS-7) 

ICOL® I COL ♦ 1 
CALL COPY (-1) 

I COL a I COL ♦ 1 
CALL COPY (-1) 

IF (MEOF) 1070,40,40 


C 400 
C 401 
C 402 
C 403 
C 404 
C 405 
C 406 
C 407 
C 408 
C 409 
C **10 
C 411 
C 412 
C 413 
C 414 
C 415 
C 416 
C 417 
C 418 
C 419 
C *23 
C 421 
C 422 
C *?3 
C 424 
C 425 
C 426 
C 4< 7 
C 428 
C 4 ?•} 

C 430 
C 431 
C 432 
C 4'.* 

C 434 
C 435 
C 436 
C 437 
C 430 
C 4 j9 
C *40 
C 441 
C 442 
C 443 
C 44* 
C 445 
C 446 
C 447 
C 448 
C 449 
C 450 
C *51 
C 452 
C 453 
C 454 
C 455 
C 456 
C 457 
C 450 
C 459 
C 460 
C 461 
C 462 




c 


C 

463 


IF (LCPY-KSPK (2) ) 1290.1300.1290 

C 

526 

r 

••••• JTYPE a 6 

c 

464 

1290 

IF (MEOF) 1280.40.40 

c 

527 

c 

CALL (FUNCUQN.SUBROUTINE) 

c 

46S 

1300 

CALL RSTAT 

c 

52B 

c 


c 

466 


IF (L 772 J 1310.2730.1310 

C 

529 

1080 

JGOOFolO 

c 

467 

1310 

I COL = I COL ♦ 1 

C 

530 


CALL COPY (4) 

c 

468 


I OUT (ICOL 1 *KLR2 

c 

531 


ICOL° ICOL* 1 

c 

469 


ICOL ■ I COL * 1 

c 

532 


IF (IFIR-3) 940*1090.940 

c 

4 70 


I OUT ( ICOL) *L772 

c 

533 

l 09 0 

CALL COPY (1) 

c 

471 


CALL rlist 

c 

534 


IF (LCPY-KSPK < J> > 1100.1110.1100 

c 

4 72 


GO TO 2740 

c 

535 

1100 

IF ( MEOF ) 1090.40.40 

c 

473 

C 


c 

536 

1110 

IOUT(ICOL)*KBL2 

c 

474 

C 

••••» jTYPE • 11 

c 

537 


JCOL*JCOL-l 

c 

47S 

C 

DIMENSION 

c 

538 


CALL COPY (-1) 

c 

47e> 

C 


c 

539 


IHAXs ICOL 

C 

477 

1320 

JGOOF = 13 

c 

540 


IF (NPAR) 40.960.40 

c 

478 


CALL COPY (9) 

c 

541 

C 


c 

4 79 


I COL * I COL ♦ 1 

c 

542 

r 

JTYPE * l 

c 

480 


NPARa-1 

c 

543 

C 

COMMON 

c 

481 


DO 1380 I * JCOL * JMA X 

c 

544 

r 


c 

482 


CALL COPY (1) 

c 

545 

1 120 

CALL COPY (6) 

c 

483 


IF (NPAR) 1330.1340.1350 

c 

546 


T COL * I COL * 1 

c 

4b« 

1330 

IF (LCPY-KSPK (3) ) 1380.1370*1380 

c 

547 


J=»-2 

C 

48S 

1340 

IF (LCPY-KSPK (5) ) 1380.1370.1380 

c 

548 


IF (IFIR-4) 940.1140.940 

c 

486 

1350 

IF (LCPY-KSPK (2) ) 1380.1360.1380 

c 

549 

l 1 10 

IF <J> 1140.920.1140 

c 

487 

1360 

ICOLMCOLU 

c 

550 

1 1*0 

J = J* 1 

c 

488 


npar*-i 

c 

551 

1 ISO 

CALL COPY (1) 

c 

489 


GO TO 1380 

c 

552 


IF ILCPY-KSPK (411 1160.1130.1160 

c 

490 

1370 

NPAR*NPAR*1 

c 

553 

1 160 

IF (MEOF) 11S0.U70.1170 

c 

491 

1380 

CONTINUE 

c 

554 

1 1 70 

CALL DIAGNO (111 

c 

492 


IF (NPAR) 40.40.970 

c 

555 


GO TO 980 

c 

493 

C 


c 

556 

c 


c 

494 

C 

JTYPE * 12 

c 

557 

c 

jTYPE = 8 

c 

49S 

C 

DOUBLE PRECISION 

c 

558 

r 

CONTINUE 

c 

49o 

C 


c 

559 

r 


c 

497 

1390 

CALL COPY (6) 

c 

560 

1 180 

JC*OOF»l2 

c 

498 


I COL * I COL ♦ 1 

c 

561 


IF (LIS) 1190.40,1190 

c 

499 


CALL COPY (9) 

c 

562 

1190 

IF (MLGC) 1200. 1220.1200 

c 

500 


GO TO 920 

c 

563 

1200 

DO 1210 1*7 . ICOL 

c 

501 

C 


c 

564 

1210 

I OUT ( I ) *KBL 

c 

502 

C 

JTYPE * 13 

c 

565 


I COL *6 

c 

503 

C 

DOUBLE. (CONVERT TO DOUBLE PRECISION). 

c 

566 

1220 

CALL COPY (8) 

c 

504 

c 


c 

567 


GO TO 960 

c 

SOS 

1400 

CALL COPY (6) 

c 

568 

C 


c 

506 


I OUT ( I COL * 2 ) “KABC ( 16) 

c 

569 

r 

*•*•» JTYPE = 9 

c 

507 


I OUT ( ICOL*3) “KABC 118) 

c 

570 

c 

DATA 

c 

506 


I OUT ( I COL .4 > *KABC (5) 

c 

571 

c 


c 

509 


IOUT ( I COL *5 ) *K ABC (3) 

c 

572 

1230 

CALL COPY (4) 

c 

sir- 


I OUT { ICOL*6) *KA8C (9) 

c 

573 


ICOL=ICOL*l 

c 

51 i 


IOUT < ICUl *7) “KABC (19) 

c 

574 


I v (IFIR-4) 940.1240.940 

c 

512 


I0UT(IC0L*8)=»KABC(9) 

c 

575 

1 2*0 

IF ( JINT ( JMAXI -KSPK <*) 1 1^60.1260,1260 

c 

513 


IOUT (ICOL *9) *KA8C (15) 

c 

576 

l'SO 

IF (LFIR-JMAX) 930. 1260. 1260 

c 

514 


IOUT (ICOL*10)*KABC<14) 

c 

577 

i 260 

CALI DIAGNO (11) 

c 

515 


I COL* I COL *11 

c 

578 


GO T 0 940 

c 

516 


GO T U 930 

c 

579 

r 


c 

517 

c 


c 

500 

( 

o«e»« jTYPE = 10 

c 

516 

C 

*•*<»• JTYPE * 14 

c 

581 


DECODE (C.N.v) LIST /// ENCODE (C.N.V) LIST 

c 

519 

C 

DO STATEMENT 

c 

582 

f 


c 

520 

c 


c 

583 

.27 r 

JGOOF =23 

c 

521 

1410 

MIL 00* 1 

c 

584 


call copy (6; 

r 

522 


CALI COPY (2) 

c 

585 


ICOL = 1 COL ♦ l 

c 

523 


Call RSTat 

c 

586 


CALL COPY (1) 

c 

524 


IF (L772) 1420.40.1420 

c 

587 

l?aO 

CA! L COPY l 1 ) 

c 

525 

1420 

JGOOF* 1 5 

c 

588 



IF tNDEFl 1450.1*50.1430 
1 3 0 00 1440 1 = 1 *ND£F 

IF (LDEF(I)-L772) 1440.40.1440 
1440 CONTINUE 
C 

C ADD STATEMENT NUMBER TO OO-LIST. 

C 

1 4 50 IF (NDOSI 1500* 1510*1460 

1460 IF (LOOS INDQS) -L772) 1470*1540.1470 

1470 IF (NOOS-11 1450.1510.1480 

1480 DO 1490 1=2. NOOS 

IF (LOOS ( I - 1 1 -L 772) 1490.40*1490 
1490 CONTINUE 

1500 IF (NDOS-IO) 1510.1560.1560 
1510 NDOS=NDOS ♦ 1 

LOOS < NOOS ) *L7 72 
IF <NREF) 1540.1540*1520 
1520 DO 1530 Iol.NREF 

IF (lREF(I)-L772) 1530.1550.1530 
1530 CONTINUE 
1540 CALL RLIST 

10UT ; I COL ♦ 2 ) *KLR? 

I OUT ( ICOL*3) =L772 
I COL * I COL ♦ 4 
GO TO Q40 
C 

1550 CALL DIAGNO (27) 

GO TO 1540 
C 

1560 JGOOF =24 
MPHNeC 
MP2«0 
GO TO 40 
C 

( END OO-LOOP STATEMENT PROCESSING. 


r ••*** JTYPE = IS 

C END file 
C 

1670 IF ( I F I R- 1 2 ) 30*1580.30 
1560 CALL CORY (3) 

ICOL*ICOL*l 
CALL COPY (4) 

GO TO 920 

r ***** JTYPE = 16 

END STATEMENT, 

r 

1690 IF (NUOS) 1600. 1610.1600 
1600 CALL DIAGNO (16) 

•RITE (6.2860) ( LDOS ( I 1 .1 = 1 »ND06 ) 

CALL p Aof (1. 

(• DOES This STATEMENT HAVE a NUMhFR . • . « 


1 6 1 J 

IF 

( w 1 6 ) 1620. 1670. 1620 


C 


YES. IS IT 

HEFERtNCED. 

1620 

! F 

( N p f F ) 16 70.1670* 1630 


1630 

DO 

1 6** 0 I»1«nREF 



IF 

JLREF ( I > -L 15) 1640. 1650 

.1640 

1640 

CON 

TINUfe 


c 


NO. IGNORt 

TMt NUMBER, 


GO 

TO 1670 


c 


YES. 



C 

C 

C 

c 

c 


c 


c 

c 

c 

c 


c 

c 

c 


L 

( 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


c 


589 

1650 

CALL DIAGNO (18) 

C 

652 

590 

c 


C 

653 

591 

c 

GFNERATE NEW STOP COMMAND. 

c 

654 

592 

c 


c 

655 

593 


IOUT (7) «KA8C (191 

c 

656 

594 


IOUT <8>*KABC (20) 

c 

657 

595 


IOUT (9) *KABC (lb) 

c 

658 

596 


IOUT ( 10) «KABC (16) 

c 

659 

597 


MILOOw-1 

c 

660 

596 


CALL OLIST (HERR) 

c 

661 

599 


IF (MERR) 1670. 1660. 1670 

c 

662 

600 

1660 

JINT (1 ) *3 

c 

663 

601 


JINT (2) «55 

c 

664 

602 


JINT (3) »L15 

c 

665 

603 


JINT (4) *10 

c 

666 

60* 


CALL IOSYS1 (2.JINT.4) 

c 

66 7 

605 


CALL IOSYS1 (2. IOUT. 10) 

c 

66B 

606 


NR T 1 =NR T 1 * 1 

c 

669 

60 ■ 

c 


c 

670 

606 

c 

LOOK FOR FORMATS ON TAPE 2 

c 

671 

609 

c 


c 

672 

6 1 0 

1670 

IF ( NR T 2 ) 1750.1750.1680 

c 

673 

61 1 

1680 

CALL IOSYS2 (1.0.0) 

c 

674 

612 

c 


c 

675 

613 

c 

INSERT BLANK COMMENT CARD. 

c 

676 

61* 

r 


c 

677 

615 


IF (NBLC) 1710.1690.1710 

c 

670 

616 

1690 

IOUT (l)wKABC(3) 

c 

679 

617 


DO 1700 1*2.7 

c 

680 

618 

1700 

IOUT ( I ) *KBL 

c 

681 

619 


KLASSsl 

c 

682 

620 


ITYPE«0 

c 

683 

621 


L 1 5 = 0 

c 

684 

622 


I MA X= 7 

c 

685 

623 


CALL IOSYS1 (2.KILI.4) 

c 

686 

624 


CALL IOSYS1 (2. IOUT. 7) 

c 

687 

625 


NR T l =NR T 1*1 

c 

688 

626 

C 


c 

689 

627 

c 

TPANSFER formats 

c 

690 

628 

c 


c 

691 

629 

1710 

CALL I0SYS2 (3*K IlI *4) 

c 

692 

c>3 0 


CALL I0SYS2 (3. IOUT. IMAX) 

c 

693 

631 


NR T2 = NR T 2- 1 

c 

694 

632 


NREC=I TYPE 

c 

695 

633 


MILDOa-1 

c 

696 

634 


CALL DL 1ST (MERR) 

c 

697 

635 


IF (MERR) 1730. 1720. 1730 

c 

698 

t J* 

1720 

CALL I0SYS1 (2.KILI.4) 

c 

699 

6 3 


CALL IOSYSl (2. IOUT. IMAX) 

c 

700 

63H 


NR T 1 = NRT I ♦ 1 

c 

7 0 ] 

639 

1730 

IF (NRT2) 1740.1740.1710 

c 

702 

6*0 

1740 

CALL I0SYS2 (0*0.0) 

c 

703 

6* 1 

C 


c 

704 

64 2 

C 

WRITE END STATEMENT 

c 

705 

6* 1 

c 


c 

706 

64* 

1750 

DO 1760 1*1.6 

c 

707 

F*5 

1760 

IOUT ( I ) *KBL 

c 

708 

6*f 


IOUT ( 7) »KA0C (5) 

c 

709 

e* 7 


IOUT (8) sK ABC (145 

c 

710 

6*0 


IOUT (9) *K ABC ( 4 ) 

c 

711 

6 * - 


KL ASS=8 

c 

712 

6 ni 


I T YPE *20 

c 

713 

651 


L 1 5*0 

c 

714 


NJ 

OY 




c ••••• JTYPE a 20 

C FORTRAN.6TC 

C 


1890 DO 1900 I«7*JMAX 
1900 IOUT ( I )»JINT ( I ) 

I MAX* JMAX 
GO TO 960 
C 

c *•*•* JTYPE ■ 21 

C FREQUENCY 

C 

1910 JGOOF «8 
GO TO 40 
C 

C *••** jTYPE ■ 22 

C IDENT 

C INTRODUCES COMPASS ROUTINE • SAME AS JTYPE«1. BUT REQUIRES 

C LETTERS M END " 

1920 IF (NFORT-1) 1930.1940*1930 
1930 CALL DIAGNO 114) 

1940 CALL DIAGNO (26) 

CALL NOPRO (1) 

CALL HEADER 
RETURN 
C 

C ••*•* JTYPE « 23 

C GO TO <*••♦•••) * N 

C 

1950 JGOOF ■ 1 9 

CALL COPY (2) 

I COL* ICOL ♦ 1 
CALL COPY (2) 

I COL* I COL ♦ 1 
CALL COPY (1) 

MILDO—l 

MTRAN«-1 

C 

C PROCESS —GO TO LIST — . 

C 

1960 ICOL* I COL* 1 

IOUT ( ICOL) =KLR2 
CALL RSTAT 

IF (L772) 1970.40.1970 
1970 ICOL*ICOL*l 

IOUT ( ICOL)»L772 
CALL RLIST 
CALL COPY (1) 

IF (LCPY-KSPK (2) ) 1980.1960.1980 
1900 IF (LCPY-KSPK(S) ) 40.1990.40 
1990 CALL COPY (1) 

IF (LCPY-KSPK (2) ) 2000.940.2000 
2000 IOUT ( I COL *2) *IOUT ( ICOL ) 

IOUT ( ICOL)*KSPK (2) 

ICOL*ICOL*2 
GO TO 940 
C 

C *•**• jTYPE * 24 

C GO TO •••• 

C 

2010 JGOOF * 1 9 
MILDO*-i 
MTRANa-1 
CALL COPY (2) 


C 778 
C 779 
C 780 
C 781 
C 782 
C 703 
C 784 
C 705 
C 786 
C 787 
C 788 
C 789 
C 790 
C 791 
C 792 
C 793 
C 794 
C 795 
C 796 
C 797 
C 798 
C 799 
C 800 
C 801 
C 802 
C 803 
C 804 
C 805 
C 606 
C 007 
C BOS 
C 809 
C 810 
C 811 
C 812 
C 813 
C 014 
C 815 
C 816 
C 817 
C 818 
C 819 
C 020 
C 821 
C 822 
C 823 
C 824 
C 825 
C 826 
C 027 
C 828 
C 829 
C 830 
C 831 
C 832 
C 833 
C 834 
C 835 
C 836 
C 837 
C 038 
C 839 
C 840 


to 




I COL* I COL ♦ l 

C 

8*1 


I OUT ( ICOL) *L772 


CALL COPY (21 

C 

8*2 


CALL RLIST 


1 COL* I COL * 1 

C 

0*3 


CALL COPT 111 


CALL RSTAT 

C 

8** 


IF (LCPY-KSPK (2) ) *0.2160**0 

c 


C 

8*5 

2160 

CALL RSTAT 

c 

TEST REF STATEMENT FOR GO TO N OR GO TO N. (LIST) 

C 

8*6 


IF (L772) 2050**0.2050 

c 


c 

8*7 

C 



IF (1772) 2020.2060.2020 

c 

8*8 

C 


c 


c 

0*9 

C 

IF QUOTIENT OVERFLOW 

c 

STATEMENT IS —GO TO 123*5—. 

c 

850 

C 


c 


c 

851 

2170 

CALL COPY (2) 

2020 

IF ( L 1 5 ) 2030.2050.2030 

c 

852 


ICOL* I COL * I 

2030 

IF (MLGC) 2050.20*0.2050 

c 

853 


CALL COPY (0) 

20*0 

CALL OIAGNO (18) 

c 

85* 


ICOL* ICOL*l 

2050 

I OUT ( I COL ♦ 1 ) «KLP2 

c 

055 


CALL COPY (0) 


ICOL*ICOL*2 

c 

856 


GO TO 21*0 


I OUT < ICOL ) «L772 

c 

857 

C 



CALL RLIST 

c 

858 

c 

jTyPE - 27 


GO TO 960 

c 

859 

c 

IF (01 VIDE CHECK) 

C 


c 

860 

c 


c 

GO TO N OR GO TO N.LJST 

c 

861 

2100 

CALL COPT ( 2 1 

r 


c 

862 


ICOL* ICOL* 1 

2060 

IF (IFIR-2) 2070.2080.2070 

c 

063 


CALL COPY (7) 

c 


c 

66* 


ICOL* I COL ♦ 1 

c 

STATEMENT IS --GO TO N— , 

c 

865 


CALL COPY (6) 

c 


c 

066 


GO TO 21*0 

2070 

IF (IFIR-12) * 0 « 9*0 . * 0 

c 

867 

C 


c 


c 

068 

c 

••••• JTYPE • 28 

c 

GO TO N. (LIST ) 

c 

869 

c 

IF(EN0 FILE I) 

c 


c 

070 

C 


2080 

CALL COPT 111 

c 

871 

2190 

CALI COPY (2) 


IF (LCPY-KSPK (2) ) 2060.2090.2060 

c 

672 


1 COL * I COL • 1 

2090 

I COL* I COL* 1 

c 

073 


CALL COPY (8) 


CALL COPY (1) 

c 

07* 


I COL* I COL • 1 


IF <ICPY-KSPK (3) ) *0.2100.*0 

c 

875 


DO 2200 I * JCOL . JMAX 

2100 

CAli pstat 

c 

076 


IF (JINT(I)-KSPK ISM 2200.2210.2200 


IF <L 772 ) 2110. *0.2110 

c 

877 

2200 

continue 

2110 

I OUT ( I COL ♦ 1 ) *KLR2 

c 

078 


JGOOF *20 


ICOl*ICOL*? 

c 

879 


GO TO *0 


! OUT ( ICOL ) *L 772 

c 

800 

2210 

CALL COPY (1) 


call rlist 

c 

881 


IF (LCPY-KSPK (5) ) 2210.21*0.2210 


CALL COPY 11) 

c 

802 

C 



IF (LCPY-KSPK (2) ) 2120.2100.2120 

c 

883 

c 


2120 

IF (LCPY-kSPk (5) ) *0.960. *0 

c 

08* 

c 

IF (SENSE LIGHT 5) 1.2 

c 


c 

885 

c 


c 

•••*• JTYPE * 25 

c 

606 

2220 

JGOOF *20 

c 

IF ACCUMULATOR OVERFLOW (QUOTIENT. DIVIDE CHECK. END FILE* SENSE) 

c 

007 


CALL COPY (2) 

c 


c 

688 


!COL*I COL* 1 

2130 

CALL COPY (2) 

c 

809 


CALL COPY (6) 


I COL * I COL • 1 

c 

890 


1 COL* ICOL • 1 


CALL COPY (11) 

c 

091 


CALL COPY (5) 


ICOL* I COL ♦ 1 

c 

092 


I COL* ICOL • 1 


Cali copy («> 

c 

893 


CALL COPY (2) 

C 


c 

89* 


IF (LCPY-KSPK (5) ) *0.21*0. *0 

c 

PROCESS TKO-KAY TRANSFER. 

c 

095 

C 


c 


c 

896 

C 

•♦••• JTYPE * 30 

21*0 

I COL 2 I COL • 1 

c 

897 

C 

IF (SENSE SWITCH 5) 1.2 


JGOOF * 2 0 

c 

890 

C 



M I LDO*— 1 

c 

099 

2230 

CALL COPY (2) 


I0UT(IC0L)*KLH2 

c 

900 


ICOL«ICOL*1 


Cali rstat 

c 

901 


CALL COPY (6) 


IF (L 772 ) 2150. *0.2150 

c 

902 


ICOL“ICOL ♦ 1 

2150 

!GGL*ICOL*l 

c 

903 


CALL COPY (6) 


C 90* 
C 90b 
C 906 
C 90? 
C 908 
C 909 
C 910 
C 911 
C 91? 
C 913 
C 91* 
C 915 
C 916 
C 917 
C 916 
C 919 
C 920 
C 921 
C 922 
C 923 
C 92* 
C 925 
C 926 
C 927 
C 926 
C 929 
C 930 
C 931 
C 932 
C 933 
C 93* 
C 935 
C 936 
C 937 
C 938 
C 939 
C 9*0 
C 9*1 
C 9*2 
C 9*3 
C 9** 
C 9*5 
C 9*6 
C 9*7 
C 9*8 
C 9*9 
C 950 
C 951 
C 952 
C 953 
C 95* 
C 955 
C 956 
C 957 
C 950 
C 959 
C 960 
C 961 
C 962 
C 963 
C 96* 
C 965 
C 966 


K> 

00 




ICOL* I COL * 1 

C 

967 

C 


C 

1030 


CALL COPY (2) 

C 

968 

C 

•*••* JTYPE ■ 33 

C 

1031 


JGOOF = 20 

c 

969 

C 

WRITE , PUNCH* REAO. ACCEPT, 

C 

1032 


IF (LCPY-KSPK (5)) 40.2U0, *0 

c 

970 

c 


C 

1033 

c 


c 

971 

2390 

JGOOF-22 

C 

1034 

c 

•**•* JTYPE * 31 

c 

972 


CALL COPY (NINS) 

C 

1035 

c 

IF (ARITHMETIC) 1,2*3 OR IF (LOGICAL! STATEMENT, 

c 

973 


ICOL* ICOL* 1 

c 

1036 

c 


c 

974 


CALL RSTAT 

c 

1037 

22*0 

JGOOF = 20 

c 

975 


IF (LT72) 2440,2400,2440 

C 

1030 


CALL COPY (2) 

c 

976 

C 


C 

1039 


ICOL* I COL ♦ 1 

c 

977 

c 

HAVE WRITE FMT.LIST 

C 

1040 

c 

COPY UNTIL CLOSED PARENTHESES 

C 

978 

c 


c 

1041 


CALL COPY (-11 

c 

979 

2*00 

IF ( IF I R-2) 2410,2420,2*10 

c 

1042 


IF (HE0F1 2250, *0.*0 

c 

980 

2*10 

IF ( IF I R« 1 2 ) 40,940.40 

c 

1043 

2250 

ICOL “ICOL *1 

c 

981 

2*20 

CALL COPY (1) 

c 

1044 


CALL RSTAT 

c 

982 


IF (LCPY-KSPK (2) ) 2430,920,2430 

c 

1045 


IF (L772) 2260,2350.2260 

c 

983 

2*30 

IF (MEOF) 2420,40,40 

c 

1046 

C 


C 

98* 

c 


c 

1047 

C 

STATEMENT IS IF (ARITHMETIC) 1,2,3 

c 

965 

c 

HAVE WRITE 12345 LIST 

c 

1040 

C 


c 

986 

c 


c 

1049 

2260 

NCOMoO 

c 

987 

2**0 

CALL RL 1ST 

c 

1050 


MILDO«-l 

c 

988 


I OUT ( I COL ♦ 1 > «KLR2 

c 

1051 


CALL DL 1ST (MERR) 

c 

989 


IC0L*IC0L*2 

c 

1052 


IF (MERR) *0,2270.40 

c 

990 


I OUT ( ICOL)»L772 

c 

1053 

2270 

I OUT ( I COL * 1 ) *KLR2 

c 

991 


IF (IFJR-2) 2450.2420,2450 

c 

1054 


ICOL*ICOL*2 

c 

992 

2*50 

IF (JMAX-JCOL) 2460,2460,40 

c 

1055 


I OUT ( I COL ) ®L 772 

c 

;9J 

2*60 

IMAX-ICOL 

c 

1056 


CALL RUST 

c 

99* 


GO TO 960 

c 

1057 


CALL COPY (1) 

c 

995 

c 


c 

1056 


IF (LCPY-KSPK (2) ) 2280,2320.2280 

c 

996 

c 

•••** jTYPE « 34 

c 

1059 

2260 

IF (LCPV-KERM) 40,2290,40 

c 

997 

c 

SEGMENT. OVERLAY 

c 

1060 

2290 

IF INCOM-ll *0.2300.2310 

c 

998 

c 


c 

1061 

2300 

CALL DIAGNO (10) 

c 

999 

2470 

nfort*nfort-i 

C 

1062 

2310 

mtran«-i 

c 

1000 


IF (NFORT.NE.Q) CALL DIAGNO (14) 

c 

1063 


GO TO 970 

c 

1001 


CALL COPY (NINS) 

c 

1064 

2320 

NCOM»NCOM*l 

c 

1002 


CALL HEADER 

c 

1065 


IF (NCOM-3) 23*0.2330,40 

c 

1003 


IF (IFIR-3) 40,1090.40 

c 

1066 

2330 

CALL DIAGNO (18) 

c 

100* 

c 

••••• JTYPE ■ 35 

c 

1067 

23*0 

CALL RSTAT 

c 

1005 

C 

PROGRAM, SUBROUTINE, FUNCTION. 

c 

1068 


IF (L772) 2270.40,2270 

c 

1006 

C 


c 

1069 

C 


c 

1007 

2400 

IF (NFORT-1) 2490.2500,2490 

c 

1070 

C 

ST ftTEMENT IS IF (LOGICAL) STATEMENT 

c 

1008 

2*90 

CALL DIAGNO (14) 

c 

1071 

c 


c 

1009 

2500 

CALL COPY (NINS) 

c 

1072 

2350 

MLGC—V 

c 

1010 


CALL HEADER 

c 

1073 

C 

LOOK FOR FIRST SPECIAL CHARACTER. 

c 

1011 


I COL* I COL * 1 

c 

1074 


DO 2370 LFIRsjCOL* JHAX 

c 

1012 


IF (IFIfl-3) 940,1090,940 

c 

1075 


JT = J I NT (LFIR) 

c 

1013 

C 


c 

1076 


DO 2360 IFIRsl.ll 

c 

101* 

C 


c 

1077 


IF ( JT-KSPK< IFIRU 2360.450.2360 

c 

1015 

C 

••••* JTYPE ■ 44 

c 

1076 

2360 

continue 

c 

1016 

C 

WRITE OUTPUT TAPE 

c 

1079 

2370 

CONTINUE 

c 

i 0 1 7 

C 


c 

1080 


LF I R*6 

c 

1018 

2510 

CALL COPY (1) 

c 

1061 


I F I R» 1 2 

c 

1019 

C 

JTYPE * 36 

c 

1082 


GO TO 450 

c 

1020 

C 

READ INPUT TAPE 

c 

1083 

C 


c 

1021 

C 


c 

1084 

C 

»•••• JTYPE * 32 

c 

1022 

2520 

CALL COPY (4) 

c 

1085 

c 

NAMELIST 

c 

1023 


JGOOF»22 

c 

1086 

c 


c 

102* 


IC0L*IC0L*2 

c 

1087 

2390 

JGOOF ”21 

c 

1025 


IOUT ( ICOL) *KSPK (3) 

c 

1068 


CALL COPY (6) 

c 

1026 


JCOL* JCOL ♦ 1 

c 

1089 


J COl.*ICOL* 1 

c 

1027 


DO 2530 JA VB* JCOL , JMAX 

c 

1090 


Je-1 

c 

1028 


IF (JINT (JAVB*l) -KABC (5) ) 2530 , 2540 , 2530 

c 

1091 


IF ( IF I M-* ) 40.ii40.40 

r 

1029 

2530 

CONTINUE 

c 

1092 


to 



25*0 

CALL COPY (1» 

C 

1093 


CALL RL 1ST 

C 

1156 


IF (LCPY-KSPK (2) > 2550.2560*2550 

C 

1 09* 


CALL COPY (1) 

C 

1157 

2550 

IF (MEOF) 25*0 .*0 * *0 

C 

1095 


IF (LCPY-KSPK (5) ) *0 .920 .*0 

c 

1158 

2S60 

CALL RSTAT 

c 

1096 

c 


c 

1159 


IF (L 772 ) 2620.2570.2620 

c 

1097 

c 

*•••* JTYPE * 39 

c 

1160 

2570 

KLASS*6 

c 

1098 

c 

RETURN 

c 

1161 

2580 

CALL COPY (1) 

c 

1 099 

c 


c 

1162 


IF (LCPY-KSPK (2) ) 2590.2610.2590 

c 

1100 

2770 

CALL COPY (6) 

c 

1163 

2590 

IF (MEOF) 2500.2600.2600 

c 

1101 


MTRAN»-1 

c 

116* 

2600 

I COL * I COl ♦ 1 

c 

1102 


GO TO 920 

c 

1165 


I OUT ( ICOLI *KSPK (S) 

c 

1103 

c 


c 

1166 


IM AX* I COL 

c 

110* 

c 

•*•** JTYPE ■ *0 

c 

1167 


GO TO 960 

c 

1105 

c 

SENSE LIGHT 

c 

1168 

2610 

I OUT ( ICOL»«KSPK (5) 

c 

1106 

c 


c 

1169 


I COL* I COL * 1 

c 

1107 

*\> 

a> 

o 

CALL COPY (5) 

c 

1170 


GO TO 9*0 

c 

1108 


I COL® ICOL ♦ 1 

c 

1171 

2620 

IOUT ( ICOL* I ) *KLR2 

c 

1109 


CALL COPY (5) 

c 

1172 


I COL* I COL *2 

c 

1110 


ICOL* ICOL* 1 

c 

1173 


IOUT ( I COL ) *L 7 72 

c 

mi 


CALL COPY (0) 

c 

117* 


CALL PL I ST 

c 

1112 


I MAX* I COL 

c 

1175 


CALL COPY (1) 

c 

1113 


GO TO 950 

c 

1176 


IF (LCPY-KSPK (2)) 2630 .2610.2630 

c 

1 11* 

C 


c 

1177 

2630 

IF (LCPY-KSPK (2)1 *0.2600.2600 

c 

1115 

C 

JTYPE * *1 

c 

1178 

C 


c 

1 116 

c 

STOP 

c 

1179 

c 


c 

1117 

c 


c 

1100 

c 

•**•* JTYPE * *5 

c 

1 118 

2790 

CALL COPY (*) 

c 

1181 

c 

WRITE TAPE 

c 

1119 


MILDO*-l 

c 

1182 

26*0 

CALL COPY (1) 

c 

1120 


MTR AN*- 1 

c 

1183 

c 

JTYPE ■ 37 

c 

1121 


GO TO 920 

c 

118* 

c 

READ TAPE 

c 

1122 

C 


c 

1185 

c 


c 

1123 

c 

*•••• JTYPE * *2 

c 

1186 

2650 

CALL COPY (*) 

c 

112* 

c 

IF (UNIT.N) Ll*L2.L3.L* 

c 

1187 


JCOL *L AST ♦ 1 

c 

1 125 

c 


c 

1188 


I COL ■ I COL *2 

c 

1126 

2000 

CALL COPY (2) 

c 

1189 


IOUT ( ICOL) *KSPK (3) 

c 

1127 


I COL* I COL ♦ 1 

c 

1190 

2660 

CALL COPY (1 ) 

c 

1128 


CALL COPY (-1) 

c 

1191 


IF (LCPY-KSPK (2) ) 2660.2670.2660 

c 

1129 


IF (MEOF.GE.Q) GO TO *0 

c 

1192 

2670 

IOUT ( ICOL)*KSPK (5) 

c 

1130 


I COL * I COL ♦ 1 

c 

1193 


GO TO 920 

c 

1131 


MILDOsl 

c 

119* 

C 


c 

1132 


CALL DLIST (MERR) 

c 

1195 

C 

••••• JTYPE * 38 

c 

1133 


IF (MERR.NE.O) GO TO *0 

c 

1196 

c 

READ 1 AND WRITE ( 

c 

113* 


DO 2810 1*1.* 

c 

1197 

c 


c 

1135 


CALL RSTAT 

c 

1198 

2680 

JGOOF*23 

c 

1136 


IF (L772.E0.0) GO TO *0 

c 

1199 


CALL COPY (NINS-1) 

c 

1137 


I COL* I COL *2 

c 

1200 


I COL * I COL * 1 

c 

1138 


IOUT ( ICOL-1 ) *KLR2 

c 

1201 


CALL COPY (I) 

c 

1139 


IOUT (ICOL I *L 772 

c 

1202 

2690 

CALL COPY (I) 

c 

11*0 


CALL RL I ST 

c 

1203 


IF (LCPY-KSPK (2)) 2700.2720.2700 

c 

11*1 


CALL COPY (1) 

c 

120* 

2700 

IF (LCPY-KSPK (5) ) 2710.920.2710 

c 

11*2 


IF ( LCPY , NE ,KSPK ( 2 ) ) GO TO 2820 

c 

1205 

2710 

IF (MEOF) 2690. *0**0 

c 

11*3 

2810 

CONTINUE 

c 

1206 

C 


c 

11** 


GO TO *0 

c 

1207 

r 

GET FORMAT 

c 

11*5 

2020 

IF (I ,EU.*. AND. LCPY. EQ.KERM) GO TO 970 

c 

1208 

r 


c 

1 1 *b 


GO TO *0 

c 

1209 

2720 

call RSTAT 

c 

11*7 

c 


c 

1210 


IF ( L 7 72 ) 2760.2730.2760 

c 

11*0 

C 

***** JTYPE * *3 

c 

1211 

2730 

KLASS*6 

c 

11*9 

C 

TYPE INTEGER* TYPE REAL ETC. STATEMENT, 

c 

1212 

27*0 

CALL COPY (1) 

c 

1150 

C 


c 

1213 


IF (LCPY-KSPK (5M 2750.920.2750 

c 

1151 

2030 

00 28*0 1*7 .LAST 

c 

121* 

2750 

IF (MEOF) 27*0.*0.*0 

c 

1152 

28*0 

J I NT ( I ) *KBL 

c 

1215 

2760 

IOUT ( ICOL* 1 ) *KLR2 

r 

1153 


GO TO 730 

c 

1216 


ICOl*ICOL*2 

c 

115* 

C 


c 

1217 


IOUT ( I COL ) *L 7 72 

c 

1155 

2850 

FORMAT (l*A6) 

c 

1218 


o 



2860 FORMAT ( 13X.3H***, 10I6.3M***) 

C207O FORMAT (8M0JTYPE a,I3.45H IS ILLEGAL * I AM CONFUSED AND CANNOT 
END 

SUBROUTINE 10SYS1 ( OP * L I ST . LEN ) 

C 

C This SUBROUTINE BUFFERS in ANO OUT BINARY RECORDS IN 256 WORD 

c blocks via tape unit u 

c 

c op CODES PERMITTED. 

CO I 2 3 

C ERASE REWIND WRITE READ 
C 

DIMENSION LIST ( 1 ) , I OBUF ( 25b I 
INTEGER OP • OPSW . RWS 
C 
C 

10 OPSW»OP*1 

GO TO (20.30.70.150) .OPSW 
C 

C ERASE 

C 

20 MR*0 

GO TO 60 
C 

C REWIND 

C 

30 IF ( RWS*NR ) 60.60.40 
40 NR»NR ♦ 1 

DO 50 I *NR .256 
50 I OBUF { I) *0 

WRITE (1) I OBUF 
60 REWIND 1 
RWS* 0 
NR*0 
return 
C 

C WRITE 
C 

70 IF (RWS) 80.90.100 
80 PAUSE 21 
90 RWS* 1 

100 IF (LEN) 140.140,110 
no DO 130 1*1. LEN 
NRsNR ♦ 1 

IOBUF (NR) «LIST ( I ) 

IF (NR-256) 130.120.120 
120 WRITE (1) IOBUF 
NRaO 

130 CONTINUE 
MR«MR*LEN 
140 RETURN 
C 

C READ 

150 IF (MR) 160.160.170 
160 PAUSE 22 

170 IF (RWS) 200.190.180 
180 PAUSE 23 
190 REWIND 1 

RE AO (1) IOBUF 

RWS*-1 

NMRaO 

200 IF (LEN) 250.250.2*0 


c 

1219 


210 

CO 230 I « 1 .LEN 

D 

61 

c 

1220 



NR aNR ♦ 1 

D 

62 

c 

1221- 



LIST ( I ) « IOBUF (NR) 

D 

63 

D 

1 



IF (NR-256) 230.220.220 

0 

64 

0 

2 


220 

READ (1) IOBUF 

D 

65 

D 

3 



NR»0 

0 

66 

D 

4 


230 

CONTINUE 

D 

67 

0 

5 



NMRaNMR.LEN 

D 

68 

D 

6 



IF ( NMR-MR > 250.250.240 

0 

69 

D 

7 


240 

PAUSE 24 

D 

70 

D 

8 


250 

RETURN 

D 

71 

D 

9 



ENO 

D 

72- 

D 

10 



SUBROUTINE IOSYS2 (OP .LI ST .LEN) 

E 

1 

D 

11 

C 



E 

2 

D 

12 

C 


THIS SUBROUTINE BUFFERS in AND OUT BINARY RECORDS IN 256 WORD 

E 

3 

D 

13 

C 


BLOCKS VIA TAPE UNIT 2. 

E 

4 

D 

14 

C 



E 

5 

D 

15 

c 


OP CODES PERMITTED. 

E 

6 

D 

16 

c 


0 12 3 

E 

7 

0 

17 

c 


ERASE REWIND WRITE READ 

E 

8 

D 

18 

c 



E 

9 

D 

19 



DIMENSION LIST ( 1 ) . IOBUF ( 256 ) 

E 

10 

D 

20 



INTEGER OP. OPSW, RWS 

E 

11 

n 

21 

c 



E 

12 

D 

22 

c 



E 

13 

0 

23 


10 

OPSW«OP*I 

E 

14 

D 

24 



GO TO (20.30*70,150) .OPSW 

E 

15 

D 

25 

c 



E 

16 

D 

26 

c 


ERASE 

E 

17 

D 

27 

c 



E 

18 

0 

28 


20 

MRmO 

c 

19 

D 

29 



GO TO 60 

E 

20 

D 

30 

c 



E 

21 

D 

31 

c 


REWIND 

E 

22 

D 

32 

c 



E 

23 

0 

33 


30 

IF ( RWS # NR ) 60.60*40 

E 

24 

D 

34 


40 

NRsNR* 1 

E 

25 

D 

35 



DO 50 I-NR.256 

E 

26 

D 

36 


50 

IOBUF ( I) *0 

E 

27 

D 

37 



WRITE (2) IOBUF 

E 

28 

D 

38 


60 

REWIND 2 

E 

29 

D 

39 



RWS*0 

E 

30 

0 

40 



NB»0 

E 

31 

D 

41 



return 

E 

32 

0 

42 

c 



E 

33 

0 

43 

c 


WRITE 

E 

34 

0 

44 

c 



E 

35 

D 

45 


70 

IF (RWS) 80.90.100 

E 

36 

D 

46 


00 

PAUSE 21 

E 

37 

0 

47 


90 

RWS* 1 

E 

38 

0 

40 


100 

IF (LEN) I40.140.n0 

E 

39 

D 

49 


no 

DO 130 1*1. LEN 

E 

40 

D 

50 



NRaNR* 1 

E 

41 

0 

51 



J OBUF ( NR ) *L I ST (I) 

E 

42 

D 

52 



IF (NR-256) 130.120*120 

E 

43 

D 

53 


120 

WRITE (2) IOBUF 

f 

44 

D 

54 



NRaO 

E 

45 

0 

55 


130 

CONTINUE 

e 

46 

D 

56 



MRaMR^LEN 

L 

47 

D 

S'* 


140 

return 

E 

48 

0 

58 

c 



E 

49 

D 

59 

c 


READ 

E 

50 

D 

60 

c 



E 

51 



5 


• KPRIN 


.NOPT 


150 IF (MR) 160.160.17C 



E 

52 

160 PAUSE 22 



E 

53 

170 IF (RWS) 200.190.180 



E 

54 

100 PAUSE 23 



E 

55 

190 READ (2) IOBUF 



E 

56 

RWS*- 1 



E 

57 

NMR * 0 



E 

58 

200 IF (LEN) 250.250.210 



E 

59 

210 DO 230 1*1. LEN 



E 

60 

NR-NR« 1 



E 

61 

LIST ( I ) *IOBUF (NR) 



E 

62 

IF ( NR-256 ) 230.220.220 



E 

63 

220 READ (2) IOBUF 



E 

64 

NR*0 



E 

65 

230 CONTINUE 



E 

66 

NMR*NMR.LEN 



E 

67 

IF ( NMR-MR ) 250.250.240 



E 

60 

240 PAUSE 24 



E 

69 

250 RETURN 



E 

70 

END 



E 

71- 

SUBROUTINE SKARO 



F 

1 

C 



F 

2 

C SUPER-CARO INPUT ROUTINE. 



F 

3 

c this routine reads fortran statements with up to 

19 CONTINUATION 

F 

4 

C CAROS ANO PACKS THE STATEMENT INTO 

the super-card 

--IOUT— . 

F 

5 

C 



F 

6 

COMMON 



F 

7 

1 JINT ( 1600 ) . JOB ( 00 ) 

.KBUFF (80) 


F 

8 

2 .IDEF (3000) .LREF(IOOO) 



F 

9 

DIMENSION KIM(80.20) 



F 

10 

EQUIVALENCE(JINT.KIM) 



F 

11 

C 



F 

12 

COMMON /LARGE/ NWORDS 

. IOUT ( 1326) 


F 

13 

C 



F 

14 

COMMON /MI5C/ 



F 

15 

1 ICOL • I F I R 

.IPASS 

.istar 

F 

16 

2 . JCOL • JMAX 

.KILI (4) 

.K0L73 ( 3 ) 

F 

17 

3 .L772 .LAST 

• LCPY 

•LDOS(IO) 

F 

18 

4 .LFIR .LQUAL 

.MEOF 

.MILDO 

F 

19 

5 .MLGC .MP2 

•MTRAN 

*NBLC 

F 

20 

6 .NCD .NDEF 

• NDOS 

.NINS 

F 

21 

7 .NPAR .NPUN 

»NREC 

.NREF 

F 

22 

0 *NRT 1 .NRT2 

•NTEMP(b) 

.NXEQ 

F 

23 

9 .NTRAN .KEND(J) 

• MPUN 

*MPR IN 

F 

24 

EQUIVALENCE ( K I L I ( 1) • KLASS ) . 1 KILI (2) * JTYPE ) 


F 

25 

EQUIVALENCE (KILI (3) .L15) • (K IL I (4) • IMAX ) 


F 

26 

C 



F 

27 

COMMON /ALPHA/ KBL . KD I G ( 1 0 ) * K ABC ( 26 ) • KSPK ( 1 2 ) 


F 

20 

C 



F 

29 

COMMON /CONTDY/ NKTRL.KTRL14.25) 



F 

30 

c 



F 

31 

C 



F 

32 

COMMON /HOL2/ KHL2.KLR2.KLP2.KRP2.KERM 


F 

33 

C 



F 

34 

COMMON / INI T/ LINE* MPAGE.NP AGE. KODE 



F 

35 

C 



F 

36 

COMMON /KSTCOM/ NKST *KST ( 13.65) 



F 

37 

r 



F 

38 

COMMON /CHOICE/ 



F 

39 

1 KB 1 5 * KPUN 

• MCOL 

. MCOM 

F 

40 

2 .MEX *K079 

»MLBL 

.MSTOP 

F 

41 

3 .MLIST .NROUT 

• MREF 

• MSKP 

F 

42 

4 .KD1 5 .MSER 

.MR IT 

.JUST 

F 

43 


C 

C 



C 

30 


40 

50 


C 

C 

C 


60 

70 

00 

90 

100 

no 


120 


130 


140 

C 

c 

c 


c 

c 

c 

150 


160 

170 


C 


EQUIVALENCE IKBUFFU) * KB1 > • (KBUFF (6) *KB6) 

EQUIVALENCE (KDXG ( 1 ) »KZ ) • (KABC < 3) *KC ) . ( KSPK ( 6 > . KSY AR > 
EQUIVALENCE < KSPK ( 1 0 ) *KOOL > * ( KSPK < 9 > » KPER ) 

00 10 I«l#72 
JINT(I)*KBUFF(I) 

IF (KOOE ) 20 • 20 » 30 


CALL HEADER 

IF (MLIST. NE,0) CALL PAGE (0) 

K0L73 { 1 ) *KBUFF (73) 

K0L73 (2) *KBUFF (74) 

K0L73(3)«KBUFF(75> 

ME0F*-1 
KOOE«KOOE»1 
IF (MLIST) 40*50*40 
WRITE (6*180) NR£C .KBUFF 
CALL PAGE (1) 

K7*7 

K72«72 

LOOK FOR CONTINUATION CAROS AND TRANSFER THEN TO IOUT VIA KBUFF, 

DO 140 J-2.20 
CALL READER 

IF (KB6-K8L) 60.150.60 
IF (KB1-KC) 70*150.70 
IF (KB1-KSTAR) 00.150*80 
IF (KB1-KDOL) 90.150.90 
IF (KB1-KPER) 100.150.100 
IF (KB6-KZ) 110.150.110 
K7*»k7 *66 
K72*K72*66 
L*6 

DO 120 I-K7.K72 
L*L ♦ 1 

JINTU)-KBUFF(L) 

IF (MLIST) 130.140.130 
WRITE (6.190) KBUFF 
CALL PAGE (1) 

CONTINUE 

NINETEEN CONTINUATION CARDS, LOAD EMPTY BUFFER BEFORE EXITING, 
J»2 1 

CALL READER 

LOCATE LAST NON-BLANK COLUMN IN CARD AND EXIT, 

NCD«J-1 
L*K72-6 
JMAX«K72*1 
DO 160 I«1.L 
JMAXsJMAX-1 

IF (JINT(JMAX)-KBL) 170.160.170 
CONTINUE 

J INT ( JMAX * 1 ) OKERM 
RETURN 


F 44 
F 45 
F 46 

r 47 

F 48 
F 49 
F 50 
F 51 
F 52 
F 53 
F 54 
F 55 
F 56 
F 57 
F 50 
F 59 
F 60 
F 61 
F 62 
F 63 
F 64 
F 65 
F 66 
F 67 
F 60 
F 69 
F 70 
F 71 
F 72 
F 73 
F 74 
F 75 
F 76 
F 77 
F 70 
F 79 
F 80 
F 01 
F 02 
F 83 
F 04 
F 85 
F 06 
F 07 
F 00 
F 89 
F 90 
F 91 
F 92 
F 93 
F 94 
F 95 
F 96 
F 97 
F 90 
F 99 
F 100 
F 101 
F 102 
F 103 
F 10* 
F 105 
F 106 




107 


90 DO 100 I«73.8Q 




G 

61 

L 06 


100 JOB ( I ) *KBL 




G 

62 

109- 

c 





G 

63 

1 

C 

COMPRESS STATEMENT BY ELIMINATING MULTIPLE 

BLANKS 

G 

64 

2 

c 





G 

65 

3 


DO 110 1-1.60 




G 

66 

4 


IF <JOB(I»-KBL) 

120.U0.120 



G 

67 

5 


110 CONTINUE 




G 

68 

6 


RETURN 




6 

69 

7 

c 





G 

70 

H 


120 JOB ( 1 1 *JOB ( I ) 




G 

71 

V 


J= 1 




G 

72 

10 


I B* I ♦ 1 




G 

73 

11 


00 150 I-IB.80 




G 

74 

12 


IF < JOB ( I ) -KBL 1 

140.130.140 



G 

75 

13 


130 IF ( JOB ( I - l ) -KBL ) 140.150.140 



G 

76 

14 


140 J*J*1 




G 

77 

lb 


JOB { J) *JOB ( I ) 




G 

78 

16 


150 CONTINUE 




G 

79 

17 

c 





G 

80 

16 


IB*J*1 




G 

81 

19 


OO 160 I-IB.80 




G 

82 

20 


160 JOB ( I ) -KBL 




G 

83 

21 

c 





G 

84 

22 

c 


CENTER HEADING 


G 

85 

23 

c 





G 

86 

24 


IB*(80-J)/2 




G 

87 

25 


170 I«J*IB 




G 

86 

26 


JOB < I ) -JOB ( J) 




G 

89 

27 


J-J-l 




G 

90 

28 


IF (J) 180.180.170 



G 

91 

29 

c 





G 

92 

30 

c 

ELIMINATE REMAINING NON-BLANKS 


G 

93 

31 

c 





G 

94 

32 


180 I B- 1 - 1 




G 

95 

33 


00 190 I-l.IB 




G 

96 

34 


190 JOB { I ) -KBL 




G 

97 

35 


return 




G 

98 

36 


END 




G 

99- 

37 


SUBROUTINE PAGE 

(N> 



H 

1 

3« 

c 





H 

2 

39 

c 

THIS subroutine 

DOES THE GENERAL 

PAGE COUNTING 

FOR TIDY WHILE 

H 

3 

40 

c 

LIMITING THE OUTPUT TO 40 LINES 

PER PAGE. 


H 

4 

41 

c 





H 

5 

42 


COMMON 




H 

6 

43 


1 J I NT ( 1600) .JOB (80 ) 

•KBUFF (80 ) 


H 

7 

44 


2 tLDEF ( 3000 ) .LREFU000) 



H 

8 

45 


DIMENSION K I M ( 80 

.20) 



H 

9 

46 


EQUIVALENCE (JINT 

.KIM) 



H 

10 

47 

c 





H 

11 

48 


COMMON /large/ 

NWORDS 

• IOUTU326) 


H 

12 

49 

c 





H 

13 

50 


COMMON /MISC/ 




H 

14 

51 


1 I COL 

♦ IF IR 

.IPASS 

•ISTAR 

H 

15 

52 


2 • JCOL 

. JMAX 

•KILI<4) 

♦KOL73 (3) 

H 

16 

53 


3 .L772 

.LAST 

. LCPY 

• LOOS (10) 

H 

17 

54 


4 .LFIR 

•LQUAL 

• MEOF 

•MILOO 

H 

18 

55 


5 .ML&C 

.MP2 

•MTRAN 

. nblc 

H 

19 

56 


6 *NCD 

♦ NDEF 

• NOOS 

.WINS 

H 

20 

57 


7 »NPAR 

. NPUN 

»NREC 

• NREF 

H 

21 

58 


0 .NRTl 

• NRT2 

•NTEMPI5) 

. NXEQ 

H 

22 

59 


9 .NTRAN 

•KENO (3) 

• MPUN 

.MPRIN 

H 

23 

60 


equivalence (k;li n > .klassi • t 

KILI (2) . JTYPE ) 


H 

24 


Cm 

CM 



EQUIVALENCE (KILI (3) »L1S> ♦ (KILI (4) .IMAX) H 

C H 

COMMON /ALPHA/ KBL.KDIGUOI .KABC ( 26 ) # KSPK (1 2 ) H 

C H 

COMMON /CONTDY/ NKTRL.KTRL (4*25) M 

C H 

COMMON /MOL2/ KBL2.KLH2.KLP2.KRP2.KERM H 

C H 

COMMON / INI T/ LINE.MPAGE.NPAGE.KOOE H 

C H 

COMMON /KSTCOM/ NKST #KST ( 1 3 • 65 J H 

C H 

COMMON /CHOICE/ H 

1 KB1S * KPUN *MCOL .MCOM H 

2 *MEX *K079 tMLBL #MSTOP H 

3 i ML I ST .NROUT .MREF .MSKP H 

4 »K015 tMSER »MR I T .JUST H 

5 .KPRIN .NOPT H 

C H 

10 IF (N) 20.50.90 M 

20 IF (LINE-N-4Q) 30.40.40 H 

30 LINE-LINE-N H 

RETURN H 

C H 

40 LINE*-N H 

GO TO 70 H 

C H 

50 IF (LINE) 60.80.60 M 

C H 

60 L I NE® 0 H 

70 NPAGE*NPAGE*1 h 

mpage*mpage* 1 H 

WRITE (6.100) NROUT. IPASS.MPAGE*NPAGE. JOB H 

80 RETURN H 

90 L INE*L INE*N H 

IF (LINE-40) 80,60.60 H 

C M 

100 FORMAT (1H1.6A.28H* T I 0 Y • ROUT INE . I 4 , 4X • 4HPASS • I 2 . 2X , H 

14HPAGE.I3.21X.4HPAGE.I4/7X.80A1/1X) H 

ENO H 

SUBROUTINE CONTRL I 

C I 

C This SUBROUTINE EXECUTES THE TIDY CONTROL STATEMENTS. I 

C ALL TIDY CONTROL STATEMENTS MUST HAVE AN * PUNCHED IN COLUMN 1. I 

C I 

C 1 BASE NOBASE KB15 I 

C 2 IOIN KD 79 I 

C 3 IDST •*=«** KD79 I 

C 4 ROUT NROUT I 

C 5 STAT «*sm« KD15 I 

C 6 CARD NOCARD MPUN I 

C 7 COLL NOCOLL MCOL I 

C 8 COMM NOCOMM MCOM I 

C 9 EXEM NOEXEM MEX I 

C 10 LABE N0LA8E MLBL I 

C 11 LAST ■■*■*» MSTOP 1 

C 12 LIST NOLIST ML 1ST I 

C 13 NEWR ■*=*»* NROUT I 

C 14 REFE NOREFE MREF 1 

C 15 SKIP MSKP I 

C 16 STOP «==»«a MSTOP I 

C NOTE DIFFERENCE BETWEEN MSTOP—l. GENERATED I 

C BY A *STOP CARD* ANO MSTOP** 1 . GENERATED BY I 


25 

C 


AN ENUFIlE On 

the input tape 

(IN SUBR.' 

READER) I 

24 

26 

C 

17 SERI NOSEMI MSER 



I 

25 

27 

C 

18 RICH NORIGH MR ! T 



I 

26 

28 

C 

19 LEFT NOLEFT MR 1 T 



I 

27 

29 

C 

20 COLU NOCOLU JUST 



1 

28 

30 

c 

21 PRIN NOPRIN KPRIN 



I 

29 

31 

C 

22 WRIT NOWRIT NOP f 



I 

3'! 

32 

c 





I 

31 

33 


COMMON 




I 

32 

34 


l 

JINT (1 600 1 .JOh-aiU 

•KBUFF ( 80 1 


1 

«. y. 

35 


2 

•LDEF (3000 ) .L«EF 1000 



I 

34 

36 


DIMENSION K I M ( 80 * 20 ) 



1 

35 

37 


EQUIVALENCE (JINT .KIM) 



I 

36 

38 

c 





1 

37 

39 


COMMON 

/LARGE/ NWORUb 

. IOuT ( 1 326) 


I 

38 

40 

c 





: 

39 

41 


COMMON 

/MISC/ 



i 

40 

42 


1 

ICOL * I F I k 

. IPASS 

. 1ST AH 

i 

41 

43 


2 

* JCOL , JMAX 

• K IL I (4 ) 

. KOL 7 3(31 

! 

42 

44 


3 

,L772 .LAST 

» LCP f 

•LOOS (1 0) 

I 

43 

45 


4 

•LFIR .LQUAL 

• ME OF 

•MILDC 

I 

44 

46 


5 

,MLGC . MP2 

. mT RAN 

• NBLC 

l 

45 

47 


6 

,NCD .NDE * 

. NDOS 

.NINS 

\ 

46 

48 


7 

,NPAR .NPUN 

.NREC 

.NREF 

: 

47 

49 


8 

• NRT 1 » NR T ? 

.NTEMP (S) 

» NXE 0 

i 

48 

50 


9 

.NTRAN »Kt Nl* ' J i 

.MPUN 

•MPR [N 

i 

*9 

51 


EQUIVALENCE (K IL 1 ill .KL ASS ) * l K I l I ( 2 ) ♦ J T YPE ) 


i 

50 

52 


EQUIVALENCE (K IL I I 31 • L 1 5 . (K 1l I (4) • (MAX > 


i 

51 

53 

c 





i 

52 

54 


COMMON 

/ALPHA/ KBL.KDIG ( 10 : .KABC \ ?b) .KSPN 112) 


j 

53 

55 

C 





i 

54 

56 


COMMON 

/CONTDY/ NKTRL.KTR; 14, 2S* 



i 

55 

57 

c 





l 

56 

58 

c 





4 

57 

59 


COMMON 

/HOL2/ KBL2.KLR2.KLP2.KRP2 

KERM 


I 

58 

60 

C 





I 

59 

61 


COMMON 

/ I N I T/ LINE.MPAGE.NPAGt .KJDE 


J 

60 

62 

c 





! 

61 

63 


COMMON 

/KSTCOM/ NKST.KST i 1 J.6S> 



I 

62 

64- 

c 





I 

63 

1 


COMMON 

/CHOICE/ 



i 

64 

2 


1 

KB 1 5 .KPUN 

• MCOl 

.MCOM 

1 

65 

3 


2 

.HEX *KIW9 

»HLBL 

.MSTOP 

: 

66 

4 


3 

.ML 1ST * NROU 1 

.MREF 

♦ MSKP 

i 

17 

5 


4 

•KD 1 5 .MSEM 

.MR IT 

.JUST 

i 

68 

6 


5 

•KPRIN *NOFT 



i 

69 

7 

c 





i 


8 

c 





i 

71 

9 


ISTAR*- 

1 



i 

72 

10 


1*14 




i 

73 

11 


JSW*0 




T 

74 

12 


JL* JMAX 

-1 



l 

75 

13 


DO 30 JB*2 . JL 



1 

76 

14 


IF (JINT (JB) -KBL » 10.30. iO 



I 

77 

15 


10 IF (JINT (JB) -KABC i I W 50. 20. So 



I 

73 

16 


20 I »I ♦ 1 




I 

■*9 

17 


IF (1-16) 30.40.40 



I 

0 w 

16 


30 CONTINUE 



I 

0 1 

19 


I STAR* 1 




I 

82 

20 


return 




I 

BJ 

21 

c 





I 

84 

22 


40 JSWsl 




1 

Su 

23 


JB*JB* 1 




I 

8 f 





87 


50 DO 90 J-l.NKTHL 
1*0 

DO BO JCOL*JB*JMAX 
IF ( JINT ( JCOU)-K0L) 60 *00,60 
60 1-1*1 

IF ( JINT (JCOL)-KTRL U*J) ) 90,70*90 
70 IF (1-4) 00,110,110 
80 CONTINUE 
90 CONTINUE 
100 1 ST AR* 1 
RETURN 
C 

C EXECUTE CONTROL STATEMENT 

C 

110 NREC*NR£C-1 

C JSW-1 IF CARO STARTS WITH NO 

IF (JSW) 120,130,120 
C 

120 GO TO ( 300* 100* 1 00 * 1 00* 1 00* 310,320,330,340*350* 100*360 , 100,370 * 1 00 
1 * 100*380*390*400,410*420,200,430) , J 
130 GO TO (450, 450*450, 450*450*150, 160*170*180*190*200*210*220*230,240 
1 ,20 0*250, 260 *390 *440 ,270 *140 ,290) , J 


C« ••••••••••• WRITE USER'*S GUIOE AF BEGINNING OF RUN 

C DEFAULT IS NOWRITE 

C 

C WRIT 

140 NOP T ■ 1 
RETURN 

C CARD 

150 MPUN — 1 
KPUN— 1 
RETURN 

C COLL 

160 MCOL-- 1 
RETURN 

C COMM 

170 MCOMb-1 
RETURN 

C EXEM 

180 MEX — 1 
RETURN 

C LABE 

190 MLBL — 1 
RETURN 

C LAST/STOP 

200 MSTOPa-1 
RETURN 

C LIST 

210 MLIST— 1 
RETURN 

C NEWR 


220 NROUT » 1 
KB 1 5*0 
K015-1 
KD79-1 
MCOL— l 
MCOM— 1 
MEX-0 
MLBL«0 
ML I ST*- 1 
MPUN—1 
KPUN— 1 


80 

09 

90 

91 

92 

93 

94 

95 

96 

97 
90 
99 

100 

101 

102 

103 

104 

105 

106 
107 
100 

109 

110 
111 
112 

113 

114 

115 

116 
117 
110 

119 

120 
121 
122 

123 

124 

125 

126 
127 
120 

129 

130 

131 

132 

133 

134 

135 

136 

137 
130 

139 

140 
14 i 

142 

143 

144 

145 

146 

147 
140 
149 


MREF «0 j iso 

MSER— 1 I 15J 

MRIT-0 i i5 2 

KPR IN* 1 1 153 

MPRIN*1 I 154 

JUST-7 i 155 

RETURN I 155 

C REFE I 157 

230 MREF — 1 I i - 8 

ML I ST— 1 1 i5<. 

RETURN I i 6 o 

C SKIP I i 6 i 

240 MSKP— 1 I 162 

RETURN 1 163 

C SERI I 164 

250 MSER— 1 I *65 

RETURN 1 166 

C RIGH 1 167 

260 MR I T — 1 1 160 

RETURN 1 169 

C I 170 

C PRIN I 171 

270 KPR IN- 1 1 172 

MPRIN-1 1 173 

MLIST — 1 j 174 

RETURN I 175 

C I 176 

C NOWRIT I 177 

200 NOPT-O I 170 

RETURN j 179 

290 GO TO 100 I 180 

C NOBASE I 101 

300 KB 1 5-0 J J02 

RETURN j 103 

C NOCARO I 104 

310 MPUN-0 I 105 

KPUN-0 I 106 

RETURN I 107 

C NOCOLL I \00 

320 MCOL*0 i 109 

RETURN I 190 

C NOCOMM l 191 

330 MCOM-O I 192 

RETURN I ;93 

C NOEXEM I 194 

340 MEX-0 I 195 

RETURN I 196 

C NOLABE I 197 

350 MLBL-0 | 190 

RETURN I 199 

C NOLIST I 200 

360 MLIST-0 I 201 

C NOREFE/NOLIST I 202 

370 MREF-0 I 203 

RETURN I 204 

C NOSERI I 205 

300 MSER-0 I 206 

RETURN j 207 

C N0R1GHT*LEFT I 200 

390 MR I T-0 J 209 

RETURN I 2io 

C I 211 

C NOLEFT I 212 


04 

tn 



400 MR I T» 1 I 2J3 

RETURN i 214 

C I 215 

C NOCOLU I 216 

410 JUST*0 I 217 

RETURN I 2ie 

C I 219 

C NOPRIN I 220 

420 MPRIN-0 I 221 

KPRlNoO I 222 

MLIST-O 1 223 

RETURN I 224 

C I 225 

430 GO TO 100 I 226 

C I 227 

C GET NUMBER FOLLOWING (■) SIGN, I 228 

C I 229 

440 CONTINUE I 230 

450 JA V0» JCOL I 231 

00 460 JC0L a JAV8. UMAX I 232 

IF ( JINT (JCOL)-KSPK < 1) ) 460*470*460 I 233 

460 CONTINUE I 234 

GO TO 480 I 235 

470 JCOL a JCOL* 1 I 236 

CALL RSTAT I 237 

IF (L772) 500*480.500 I 238 

480 IF (J-l) 490*520*490 I 239 

490 L772-1 I 240 

500 IF (J-20) 510.560*510 I 241 

510 GO TO (520.530tS30.540.550) *J I 242 

C BASE I 243 

520 KB15*L772 I 244 

RETURN I 245 

C IDIN/IDST I 246 

530 K079-L772 I 247 

RETURN I 248 

C ROUT I 249 

540 NROUT «l772 I 250 

RETURN I 251 

C STAT I 252 

550 KD15-L772 I 253 

RETURN I 254 

C COLU I 255 

560 JUST«L772 I 256 

IF (JUST ,LT • 7) JUST*7 I 257 

RETURN I 258 

END I 259- 

SUBROUTINE HOLSCN j 1 

C THIS SUBROUTINE SCANS ALL FORTRAN CARDS FOR FIELDS OF HOLLERITH- J 2 

C TYPE CONSTANTS, IN THESE FIELDS. j 3 

C CHARACTERS ARE REPLACED WITH EQUIVALENT CHARACTERS WHICH WILL NOT J 4 

C BE TREATED BY ANALYSIS ROUTINES, J 5 

C THE SEARCH IS MAOE BY CHECKING FOR PATTERNS -SNNNL-. WHERE S IS A J 6 

C SPECIAL CHARACTER, NNN IS A DECIMAL NUMBER, ANO L IS THE LETTER H, J 7 

C L» OR R, IN AODITION, FOR FORMAT STATEMENTS ONLY, IT ACCEPTS THE J 8 

C PATTERN SNNNXNNNL. THE RESULT OF A MISSING AFTER X. J 9 

C J 10 

COMMON j 11 

1 JINT ( 1600) • JOB ( 80 ) . KBUFF ( 80 ) J 12 

2 .LDEF (3000 ) .LREF(lOOO) J 13 

DIMENSION KIM(80.20) j 14 

EQUIVALENCE (JINT. KIM) j 15 

C J 16 



COMMON 

/LARGE/ 

N WORDS 

• IOUT ( 1326) 


J 

17 

c 






J 

18 


COMMON 

/MISC/ 




J 

19 


1 

ICOL 

, IF IR 

tIPASS 

.istar 

J 

20 


2 

.JCOL 

. JMAX 

•KILI (4) 

.KOL73 (3) 

J 

21 


3 

• L772 

.LAST 

• LCPY 

tLDOS ( 10 ) 

J 

22 


4 

• LFIR 

tLQUAL 

• MEOF 

•miloo 

J 

23 


5 

• HLGC 

,MP2 

•MTRAN 

. N8LC 

J 

24 


6 

• NCD 

,NDEF 

*NOOS 

• NINS 

J 

25 


7 

»NPAR 

♦ NPUN 

,NREC 

♦ NREF 

J 

26 


8 

.NRT1 

,NRT2 

•NTEMP(5) 

,NXEQ 

J 

27 


9 

•NTRAN 

,KEND (3) 

, MPUN 

.MPRIN 

J 

20 


EQUIVALENCE (K IL I ( 1 ) .KLASS) t ( 

KILI (2) • JTYPE ) 


J 

29 


EQUIVALENCE (KILIOl.LlS) t (KILI (*) tINAX) 


J 

30 

c 






J 

31 


COMMON 

/ALPHA/ KBL 

.KDIG(IO) *KABC(26) ,KSPK(12) 


J 

32 

c 






J 

33 


COMMON 

/CONTDY/ NKTRL.KTRL (4.25) 



J 

34 

c 






J 

35 


COMMON 

/MOL2/ K6L2 

•KLR2*KLP2»KRP2*KERM 


J 

36 

c 






J 

37 


COMMON 

/INIT/ LINE 

, HP AGE f NP AGE , KOOE 


J 

38 

c 






J 

39 


COMMON 

/KSTCOM/ NKST,KST( 13,65) 



J 

40 

c 






J 

41 


COMMON 

/CHOICE/ 




J 

42 


1 

KB15 

• KPUN 

• MCOL 

• MCOM 

J 

43 


2 

• MEX 

• KD79 

• MLBL 

•MSTOP 

J 

44 


3 

•MLIST 

•NROUT 

• HREF 

• MSKP 

J 

45 


4 

• KD15 

,MSER 

• MRIT 

• JUST 

J 

46 


5 

.KPRIN 

,NOPT 



J 

47 

c 






J 

48 


DIMENSION LFT ( 7 ) 




J 

49 


DATA LFT/IHF»1M0.1MR.1MM.1MA.1HT 

• 1 H ( / 


J 

50 

c 






J 

51 


JCOL-6 





J 

52 


N*0 





J 

53 

c 


CHECK FOR A FORMAT 

STATEMENT. 


J 

54 


10 N*N*1 





J 

55 


20 JCOL a JCOL* 1 




J 

56 


IF (JINT (JCOL) »NE, 

LFT(N)) GO TO 

30 


J 

5? 


IF (N.NE.7) GO TO 

10 



J 

58 


GO to : 

L10 




J 

59 


30 IF (JINT (JCOL) ,EQ, 

KBL) GO TO 20 



J 

60 

c 






J 

61 


J 62 
J 63 
J 64 
J 65 
J 66 


C J 67 

LFIR«6 j 66 

IFIR-12 J 69 

C LOOK FOR SPECIAL CHARACTERS, J 70 

40 IaJCOL J 71 

DO 60 JCOL»I*JMAX j 72 

IT»JINT ( JCOL) J 73 

C ••••«•••••••••••••••••••••••••••••••*•«••••»• j 74 

C • • J 75 

C • THIS STATEMENT IS MACHINE-DEPENDENT, • J 76 

IF (IT.LT.O) GO TO 60 j 77 

C • IT IS HERE JUST TO SPEED THINGS UP. • J 78 

C * • J 79 


PROCESS NON-FORMAT STATEMENTS. 


O' 



00 50 J*l,ll 

IF ( IT.EQ.KSPK < J) > GO TO 70 
50 CONTINUE 
60 CONTINUE 
RETURN 

FOUND ONE, IS IT THE FIRST,,. 

70 IF (IFIR.NE.12) GO TO 80 
YES 

I F I R« J 
LF I R*JCOL 

LOOK FOR FOLLOWING NUMBER. 

80 IF (JCOL .EG. JMAX ) RETURN 
JCOLaJCOL* 1 
call rstat 

REPEAT IF NO NUMBER. 

IF (L772.EO.0l GO TO 40 
IT-JINT(JCOL) 

IS IT -M-t-L-» OR -R- 

IF UT.NE.KABC (0) ,AND.IT.NE.KABCU2),AND,IT.NE,KABC(10> ) GO TO 40 
FIND LIMITS OF HOLLERITH FItLD. 

I a JCOL * 1 
JCOL«JCOL*L772 

L 772 IS THE LENGTH OF THE FIELD, AS FOUND BY RSTAT 
CHECK FOR CASE OF HOLLERITH BLANKS SPILLING OFF 
END OF CARO, E.G. I-6HXXXXX 
IF (JCOL. LE. JMAX) GO TO 90 

REPLACE CURRENT END CARO MARK. 

JINT (JMAX*1)*KB[_ 

AND SET NEW ONE 

JMAX«JCOL 
JINT(JMAX*1 )«KERM 

CHANGE ALL CHARACTERS IN HOLLERITH FIELD, 

90 DO 100 Ja It JCOL 
JINT (J) ajINT (J) ♦ 1 
100 CONTINUE 
GO TO 40 


110 IGOOFaO 
IFIR-3 
LFIR.JCOL 
GO TO 160 



120 JCOLaJCOL* 1 

C LOOK FOR SPECIAL CHARACTER 

130 IF (JCOL. GT, JMAX) RETURN 
I a JCOL 

DO 150 JCOL* I * JMAX 
ITaJINT ( JCOL) 

DO 140 J*l,12 

IF ( IT .EO.KSPK ( J) ) GO TO 160 
140 CONTINUE 
150 CONTINUE 
RETURN 
C 

C SKIP IF NOT • OR « 

160 IF ( JINT < JCOL) .NE.KSPK (8) .AND.JlNT ( JCOL) .NE.KSPK 02) ) GO TO 190 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


CHANGE ALL CHARACTERS BETWEEN *S OR *'S 
KPARAMaJlNT ( JCOL) 

170 IF ( JCOL ,EQ. JMAX) RETURN 
JCOLaJCOL*! 

IF (JINT (JCOL) .EQ.KPARAM) GO TO 180 
J I NT ( JCOL > ■ J INT ( JCOL ) * 1 
GO TO 170 

180 IF ( JINT ( JCOL*l) .NE.KPARAM) GO TO 190 
JCOLaJCOL* 1 
GO TO 170 

LOOK FOR FOLLOWING NUMBER 
190 IF (JCOL. EG. JMAX) RETURN 
JCOLaJCOL* 1 
CALL RSTAT 

IF NOT A NUMBER, START AGAIN 
IF (L772.EO.O) GO TO 130 

NUMBER FOUND. LOOK AT NEXT CHARACTER. 

ITaJINT (JCOL) 

IS IT -H- 

IF ( I T .EO.KABC (8) ) GO TO 210 

IF NOT -X-, START AGAIN. 

IF (IT, NE .K ABC ( 24 ) ) GO TO 130 

X FOUND. LOOK AT NEXT. 

200 IF ( JCOL. EQ. JMAX) RETURN 
JCOLaJCOL *1 

IF (JINT( JCOL) .EO.KBL) GO TO 200 
1 T ajINT ( JCOL ) 

IS IT 

IF ( IT .EO.KSPK (8) .OR. IT .EO.KSPK ( 12) ) GO TO 160 
IS IT -)- OR 

IF ( I T .EO.KSPK (2) ) GO TO 190 
IF ( IT .EO.KSPK (5) ) GO TO 190 

OTHERWISE* BACKSPACE ONE CHARACTER 

JCOL* JCOL" 1 

AND ISSUE DIAGNOSTIC 
IF (IGOOF.EO.O) CALL DIAGNO (25) 

I GOOF ■ 1 
GO TO 120 

HOLLERITH FOUND. FIND LIMITS OF FIELD. 

210 I ■ JCOL* 1 

JCOLaJCOL *L 772 
IF ( JCOL.LE. JMAX) GO TO 220 
JINT (JMAX* 1 ) aKBL 
JMAXaJCOL 
JINT ( JMAX* 1 ) «KERM 
220 DO 230 Ja I , JCOL 
JINT (J) »JINT (J) *1 
230 CONTINUE 
GO TO 120 
END 

SUBROUTINE RSTAT 


J 

J 

J 

J 

o 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

J 

K 


THIS subroutine gets the statement number referenced AT LOCATION K 

JCOL AND PUTS IT IN L772. JCOL IS LEFT SET AT THE LOCATION OF THE K 
NEXT SYMBOL ON JINT. K 


COMMON 

1 JINT ( 1600 ) • JOB (80 ) *KBUFF (80 ) 

2 *LDEF ( 3000 ) ,LREF(1000) 

DIMENSION KIM180.20) 

EQUIVALENCE(JINT,KIM) 


K 


143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
161 
182 

183 

184 
165 
186 
*87 
188 

189 

190 

191 

192 
193- 

1 

2 

3 


5 

6 

7 

8 
9 

10 

11 

12 


09 

■^1 



c 


COMMON /LARGE/ 


NWOROS 


• IOUT ( 1 326) 


C 

C 

C 

C 

C 

C 

C 


C 

c 


c 


c 

c 

c 


COMMON /MISC/ 


1 

ICOL 

. IF IR 

‘ .IPASS 

.istar 

2 

• JCOL 

.JMAX 

•KILI (4) 

,K0L73 ( 3) 

3 

• L772 

.LAST 

• LCPY 

, LOOS (10) 

4 

• LFIR 

, LQUAL 

.MEOF 

.mildo 

5 

•mlgc 

* MP2 

•MTRAN 

,NBLC 

6 

, NCD 

.NDEF 

, NDOS 

,NINS 

7 

, NPAR 

, NPUN 

• NREC 

, NREF 

8 

» NRT 1 

, NRT2 

•NTEMPI5) 

.NXEQ 

9 

•NTRAN 

•KEND (3) 

. MPUN 

, MPR I N 


EQUIVALENCE (K IL I ( 1 ) .KLASS ) • ( K ILI 12) .JTYPE ) 
EQUIVALENCE (KILI (3) *H5) • (KILI (4) » IMAX ) 

COMMON /ALPHA/ K8L»K0IG( 10) .KABC (26) .KSPK ( 12) 

COMMON /CONTDY/ NKTRL.KTRL <4.25) 


COMMON /HOL2/ KBL2.KLR2.KLP2.KRP2.KERM 
COMMON / INI T/ LINE.MPAGE.NPAGE.KOOE 
COMMON /KSTCOM/ NKST .KST ( 13.65) 

COMMON /CHOICE/ 

1 KB 15 .KPUN • MCOL ,MCOM 

2 .HEX » K079 *ML8L .MSTOP 

3 *ML I ST tNROUT ,MR£F .MSKP 

A *KD15 .MSER *MRIT *JUST 

5 *KPRIN .NOPT 

L 772*0 

IF (JCOL-JMAX) 20,20.10 
10 JCOL*JMAX 
RETURN 

20 I ■ JCOL 

00 60 JCOL*I • JMAX 
IF (JINT(JCOD-KBL) 30,60.30 
30 DO 40 J»l»10 

IF (JINT(JCOL)-KOIG(J) ) 40.50,40 
40 CONTINUE 
RETURN 

50 L772«L772*10*J-1 
60 CONTINUE 
JCOL*JMAX 
LCPY-KERM 
MEOFcO 
return 
ENO 

SUBROUTINE OIAGNO (N) 

This ROUTINE WRITES THE GENERAL DIAGNOSTICS FOR TIDY. 
COMMON 

1 JINT ( 1600 ) .JOB (80) *KBUFF<80) 

2 , LDEF (3000) .LREF(lOOO) 

DIMENSION KIM (60 .20 ) 

EQUIVALENCE (JINT .KIM) 


K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 


C 


13 


COMMON /LARGE/ NWORDS .IOUT (1326) 


L 

11 

14 

C 



L 

12 

15 


COMMON /MISC/ 


L 

13 

16 


1 ICOL .IFIR .IPASS 

.ISTAR 

L 

14 

17 


2 .JCOL .JMAX .KILI (4) 

. K0L73 ( 3) 

L 

15 

18 


3 .L772 .LAST .LCPY 

• LDOSUO) 

L 

16 

19 


4 .LFIR .LQUAL .MEOF 

•MILDO 

L 

17 

20 


5 .MLGC .MP2 .MTRAN 

• N8LC 

L 

18 

21 


6 .NCD .NDEF .NOOS 

• NINS 

L 

19 

22 


7 »NPAR .NPUN .NREC 

.NREF 

L 

20 

23 


8 *NRT 1 .NRT2 *NTEMP(5) 

.NXEQ 

L 

21 

24 


9 .NTRAN .KENO (3) .MPUN 

•MPR IN 

L 

22 

25 


EQUIVALENCE (KlLI(l).KLASS) . ( KILI (2) .JTYPE) 


L 

23 

26 


EQUIVALENCE (K ILI ( 3) .L15) • (KILI (4) .IMAX) 


L 

24 

27 

C 



L 

29 

28 


COMMON /ALPHA/ KBL.KDIG(IO) .KA6C(26) .KSPK(12) 


L 

26 

29 

c 



L 

27 

30 


COMMON /CONTDY/ NKTRL .KTRL (4 .25 ) 


L 

26 

31 

c 



L 

29 

32 


REAL # 8 MSG 


L 

30 

33 


COMMON /OIOMSG/ MSG( 10.30) .NMSG 


L 

31 

34 

c 



L 

32 

35 


COMMON /HOL2/ KBL2.KLR2.KLP2.KRP2.KERM 


L 

33 

36 

c 



L 

34 

37 


COMMON /INIT/ LINE.MPAGE.NPAGE.KODE 


L 

35 

38 

c 



L 

36 

39 


COMMON /KSTCOM/ NKST. KST (13.65) 


L 

37 

40 

c 



L 

38 

41 


COMMON /CHOICE/ 


L 

39 

42 


1 KB 1 5 .KPUN .MCOL 

• MCOM 

L 

40 

43 


2 .MEX .K079 .MLBL 

.MSTOP 

L 

41 

44 


3 .ML 1ST .NROUT .HREF 

• MSKP 

L 

42 

45 


4 .KD15 .MSER .MR IT 

• JUST 

L 

43 

46 


5 .KPRIN .NOPT 


L 

44 

47 

c 



L 

45 

48 

c 



L 

46 

49 

c 

... 

... 

L 

47 

50 

c 

1 the above statement is illegal and mas been deleted. 

L 

48 

51 

c 

2 THE ABOVE STATEMENT HAS A HISSING RIGHT PARENTHESIS. 

L 

49 

52 

c 

3 THE ABOVE STATEMENT HAS AN EXCESS RIGHT PARENTHESIS. 

L 

50 

53 

c 

* THE ABOVE STATEMENT INCORRECTLY TERMINATES A DO LOOP. 

L 

51 

54 

c 

5 THE ABOVE STATEMENT CANNOT BE REACHED BY THE PROGRAM. 

L 

52 

55 

c 

6 STATEMENT NUMBER TABLE FULL, RENUMBER PASS DELETED. 

L 

53 

56 

c 

T REFERENCE NUMBER TABLE FULL. RENUMBER PASS DELETED. 

L 

54 

57 

c 

8 THE ABOVE STATEMENT IS OBSOLETE AND IS DELETED 

# 

L 

55 

56 

c 

9 ABOVE STATEMENT HAS AN ILLEGAL FIRST SPECIAL CHARACTER. 

L 

56 

59 

c 

10 ILLEGAL DATA. FUNCTION. OR SUBROUTINE STATEMENT. 

L 

57 

60 

c 

11 THE ABOVE COMMON OR DATA STATEMENT IS MISSING 

A (/)• 

L 

58 

61 

c 

12 THE ABOVE CONTINUE STATEMENT IS REOUNDANT AND 

IS DELETED. 

L 

59 

62 

c 

13 THE ABOVE DIMENSION STATEMENT IS NOT COMPLETE. 


L 

60 

63 

c 

U W A R N I N G . THIS STATEMENT SHOULD FOLLOW 

AN END CARO* 

L 

61 

64 

c 

15 THE ABOVE DO STATEMENT HAS AN INVALID TERMINAL 

STATEMENT* 

L 

62 

65- 

c 

16 WARNING. UNSATISFIED DO LOOPS. 


L 

63 

1 

c 

IT UNNUMBERED OR INVALID FORMAT STATEMENT DELETED 


L 

64 

2 

c 

18 HARMING. ABOVE STATEMENT IS POOR PROGRAMMING 

PRACTICE* 

L 

65 

3 

c 

19 ABOVE GO TO STATEMENT IS ILLEGAL. 


L 

66 

4 

c 

20 illegal arithmetic IF STATEMENT. IF IARITH) 

1.2.3 

L 

6? 

5 

c 

21 ABOVE NAMELIST STATEMENT MISSING (/). 


L 

68 

6 

c 

22 ILLEGAL READ. WRITE > OR PUNCH STATEMENT. 


L 

69 

7 

c 

23 ILLEGAL READ (12) LIST, OR WRITE (12) LIST, STATEMENT. 

L 

70 

8 

c 

24 00 LOOP TABLE FULL. RENUMBER PASS DELETED. 


L 

71 

9 

c 

25 W A R N I N G . COMMA FOLLOWING X MISSING IN 

ABOVE FORMAT, 

L 

72 

10 

c 

26 TIDY CANNOT PROCESS THIS CLASS OF PROGRAM. (COPY EXECUTEO.) 

L 

73 


04 

00 



r 

C 

c 

c 


c 


c 

c 

c 

c 


r 

c 


c 

c 

c 

c 

c 

c 


27 WARNING. ABOVE OO-LOOP TERMINUS PREVIOUSLY REFERENCED. 


10 J*N 

IF (J) 30 ,30,20 
20 IF (J-28) 40*30,30 
30 J*1 

*0 NMSG*NMSG* 1 

IF (MLIST.NE.-l) GO TO 50 
WRITE (6,60) NHSG« (MSGU, J) 

CALL PAGE ( 1 > 

RETURN 

50 I»- ( ( JMAX-7) /66*4) 

CALL PAGE (I) 

WRITE <6,70) (JINT(I),I*1, JM AX ) 

WRITE (6,60) NMSG. (MSG(I,J) ,I*1»10> 

WRITE (6,00) NREC.KBUFF 
WRITE (6,90) 

RETURN 

60 FORMAT (0M **••**(, I 3 , 5M) •** , 1 0 ( A6 ) , 6M****** , 20X , 1 0H******»«** ) 
70 FORMAT (7X,72Al,19(/12X,lHX*66Al) ) 

80 FORMAT (1X,I4,2X,0OA1) 

90 FORMAT (1M0) 

END 

SUBROUTINE DLIST (MERR) 

THIS SUBROUTINE UPDATES THE DEFINED STATEMENT NUMBER LIST, LDEF, 
BY ADDING THE STATEMENT NUMBER IN Ll5. IF IT IS UNIQUE. 

COMMON 


L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

L 

M 

M 

M 

M 

M 

M 


1 JINT ( 1600 ) , JOB (00 ) » KBUFF ( 00 ) M 

2 ,LDEF (3000 ) .LREF(iOOO) M 

0 I MENS I ON KIM(0Q,2O) H 

EQUIVALENCE(JINT.KIM) h 

M 


COMMON 

/LARGE/ 

NWOROS 

• IOUTU326) 


M 

COMMON 

/MISC/ 




M 

M 

I 

ICOL 

, I F I R 

, I PASS 

•istar 

M 

2 

, JCOL 

, JMAX 

,KILI <4) 

•K0L73 (3) 

M 

3 

,L772 

• LAST 

• LCPY 

•LOOS( 10) 

M 

4 

tLFIR 

» LQUAL 

*MEOF 

•MILDO 

M 

5 

*MLGC 

,MP2 

•MTRAN 

, NBLC 

M 

6 

» NCD 

,NOEF 

, NDOS 

, N INS 

M 

7 

• NPAR 

, NPUN 

,NREC 

,NREF 

M 

0 

*NRT 1 

,NRT2 

,NTEMP(5) 

» NXEQ 

M 

9 

•NTRAN 

•KEND ( 3) 

, MPUN 

, MPR I N 

M 

EQUIVALENCE ( K IL I ( 1 ) , KLASS ) , ( K I L I ( 2 ) , JT YPE ) 


M 

EQUIVALENCE <K IL I ( 3) ,L15 > , (KILI (4) , IMAX) 


M 

COMMON 

/ALPHA/ 

KBLtKDIGl 10) »KABC (26) »KSPK (12) 


M 

M 

COMMON 

/contdy/ 

NKTRL,KTRL (4,25) 



M 

M 

RE AL*8 

MSG 




M 

M 

COMMON 

/DIOMSG/ 

MSG (10,30) » NMSG 



M 

M 

COMMON 

/MOLZ/ K8L2.KL«2<Kl.P<i»KRP2i 

» K E R M 


M 

M 


M 

COMMON / I N I T / line,mpagf.,npage»kode M 


7* 

C 





M 

30 

75 



COMMON /KSTCOM/ NkST , KST (13,65) 



M 

39 

76 

c 





M 

40 

77 



COMMON /CHOICE/ 



M 

41 

70 



1 KB 1 5 »KPUN ,MCOL 


,MCOM 

M 

42 

79 



2 ,MEX .KD79 »MLBL 


, MSTOP 

M 

43 

00 



3 , ML 1ST »NROUT ,MREF 


,MSKP 

M 

44 

01 



4 ,KD15 » MSER »MR I T 


• JUST 

M 

45 

02 



5 , KPR I N , NOPT 



M 

46 

63 

C 





M 

47 

64 

C 





M 

40 

85 

c 


MILDO • -1 IF 00- TERMINATOR 

allowed 

BUT NON-STANDARD 

M 

49 

06 

c 


MILDO ■ 0 IF OO-TERMINATOR 

ALLOWEO 


M 

50 

07 

c 


MILDO ■ *1 IF OO-TERMINATOR 

FORBIDDEN 

M 

51 

00 

c 





M 

52 

09 

c 


SET UP INITIAL CONDITIONS. 



M 

53 

90 

c 





M 

54 

91 


10 

MERR-0 



M 

55 

92 



IF (KLASS-4) 60,20,20 



M 

56 

93 


20 

IF (L 15) 70,30,70 



M 

57 

94 


30 

IF (NTRAN) 40,50,40 



M 

50 

95 


40 

CALL DIAGNO (5) 



M 

59 

96 

c 





M 

60 

97 

c 


DLIST EXITS HERE. 



M 

61 

96 

c 





M 

62 

99- 


50 

mildo-o 



M 

63 

1 



NXEQ*NXEQ* 1 



M 

64 

2 


60 

RETURN 



M 

65 

3 

c 





M 

66 

4 

c 


IF This is first executable, add TO reference list. 

M 

67 

5 

c 





M 

60 

6 


70 

IF (NXEQ) 90,00,90 



M 

69 

7 


80 

I *L772 



M 

70 

0 



L772-L15 



M 

71 

9 



CALL RL 1ST 



M 

72 

10 



L772-I 



M 

73 

11 

c 





M 

74 

12 


90 

IF (NDEF ) 50,120,100 



M 

75 

13 

c 





M 

76 

14 

c 


SCAN FOR DUPLICATE STATEMENT NUMBERS, 



M 

77 

15 

c 





M 

70 

16 


100 

DO 110 1*1 ,NDEF 



M 

79 

17 



IF (LDEF(I)-L15) 110,240,110 



M 

eo 

16 


110 

CONTINUE 



M 

01 

19 


120 

NDEF*NDEF* 1 



M 

82 

20 



IF (NDEF-iSQO) 130,130,250 



M 

03 

21 


130 

LDEF ( NDEF ) *L15 



M 

84 

22 



LDEF (NDEF ♦ 1500 ) *NREC 



M 

85 

23 

c 





M 

06 

24 

c 


SCAN FOR POSSIBLE DO-LOOP TERMINATIONS, 



M 

S7 

25 

c 





M 

00 

26 



IF (NDOS) 50,50,140 



M 

09 

27 


140 

I*NDOS 



M 

90 

28 



IF (MILDO) 170,150,170 



M 

91 

29 


150 

IF (LDOS(I)-LIS) 100,160,180 



M 

92 

30 


160 

NDOS*NOOS-l 



M 

93 

31 



GO TO 50 



M 

94 

32 

c 





M 

95 

33 


170 

IF (LDOS ( I > -L15) 100,190,100 



A 

96 

34 


180 

1*1-1 



M 

97 

35 



IF (I) 140,50,170 



M 

90 

36 


190 

CALL DIAGNO (4) 




99 

37 



NDOS*NDOS-l 



M 

100 


09 

VO 



IF (MILOO) 50. <100. 220 m 101 

200 NMSG*NMSG*1 H 102 

*RITF (6.270) NMSG.I.NOOS M 103 

CALL PAGE (1) M 104 

GO TO 220 M 106 

C M 106 

r Rf SORT DO-LOOP TERMINAL LIST AFlER DELETIONS. M 107 

C M 108 

210 LOOS(I-l)«LDOS(D M 109 

220 1=1*1 M 110 

IF (I-NDOS) 210.21U.230 m ’ll 

230 NDOS=NDOS-l M 112 

MPUN«0 M 113 

MERR»-1 M 114 

GO TO 50 M 116 

C M 116 

C ERROR DIAGNOSTICS. M 117 

c Miie 

240 NMSG»NMSG*1 M 119 

WRITE (6*280) NMSG»L15*L0EF (1*1500) M 120 

CALL PAGE (1) M 121 

GO TO 260 M 122 

250 CALL DIAGNO (6) M 123 

NOEF=-l m 124 

MP2» 0 M 126 

260 MPUN«0 M 126 

MEPR*-1 M 127 

GO TO 50 M 12b 

C M 129 

270 FORMAT ;8M **** (.I3.19M) *** DO LOOP LEVEL. 12. 23H TERMINATES WHI M 130 

ILF LEVEL. I2.22H IS IN EFFECT. *<**) M 131 

280 FORMAT (0H **** (.I3.22H) *** STATEMENT NUMBER . I 5 « 25H DUPLICATES M 132 

1 ThE NUMBER AT.I4.1H, .8X.3M***) M 133 

END M 134' 

SURROUTINF NOPRO (IFLAG) N l 

C N 2 

c this subroutine executes a high-speed search for an end statement, n 3 


r 

IF MP2 IS ON. CARD IMAGES ARE 

WRITTEN ON TAPE I 

FOR USE BY PASS2* 

N 

4 

C 

NO INTERNAL PROCESSING IS DONE 

ON THE STATEMENTS 

, 

N 

5 

c 





N 

6 


common 




N 

7 


1 JINT ( 1600) 

. JOB (80) 

•KBUFF (BOi 


N 

b 


2 .LDEF(3000) 

•LREF (1000) 


N 

9 


DIMENSION KIM(80,20) 




N 

10 


EQUIVALENCE (JINT .KIM) 




N 

1 1 

c 





N 

12 


COMMON /large/ 

NWORDS 

» I OUT ( 1326) 


N 

13 

c 





N 

1% 


COMMON /MISC/ 



% 

N 

16 


1 ICOL 

♦ IF I R 

. IPASS 

♦istar 

N 

lb 


2 • JCOL 

• JMAX 

» K I L I (4) 

•KOL73 (3) 

N 

17 


3 .L 772 

.LAST 

• LCPY 

.LDOS ( 10) 

N 

16 


4 .LFIR 

•LQUAL 

.MEOF 

•MILDO 

N 

19 


5 .MLGC 

. MP2 

•MTRAN 

.NBLC 

N 

20 


b .NCO 

• NDEF 

.NCOS 

.NINS 

N 

2! 


7 .NPAR 

• NPUN 

. NREC 

. NREF 

N 

22 


8 . NRT 1 

. NRT2 

.NTEMP (5) 

• NXEQ 

N 

23 


9 » NTR AN 

• KEND ( J ) 

. MPUN 

. MPR I N 

N 

24 


EQUIVALENCE (MU ( 1 > .KLASS) . 

( KILI (2) .JTYPE ) 


N 

26 


EQUIVALENCE (KILIOIt 

L 15 ) « ( K I L I (4) .IMAX) 


N 

26 

r 





N 

27 


COMMON /ALPHA/ KHl .KOIG ( 1 0 ) .KABC (26) tKSPK l 12) 


N 

28 

r 





N 

29 




COMMON /CON TOY/ NKTRL.KTRL (4.25) 


N 

30 

C 




N 

31 



COMMON /HOL2/ KBL2*KLR2.KLP*.KRP2,KERM 


N 

32 

C 




N 

33 



COMMON /INIT/ LINE.MPAGE.NPAGE.KODE 


N 

34 

C 




N 

35 



COMMON /KSTCOM/ NKST.KST (13.65) 


N 

36 

C 




N 

37 



COMMON /CHOICE/ 


N 

38 



1 K015 » KPUN . MCOL 

.MCOM 

N 

39 



2 * ME X .KD79 .MLBL 

.MSTOP 

N 

40 



3 .ML I ST .NROUT .HREF 

• MSKP 

N 

41 



4 *KD 1 5 .MSER .MR IT 

.JUST 

N 

42 



5 .KPRIN .NOPT 


N 

43 

C 




N 

44 

C 




N 

45 

C 


SET INITIAL VALUES. 


N 

46 

c 




N 

47 


10 

call iosysi (O.o.o) 


N 

48 



CALL IOSYS2 (0.0.0) 


N 

49 



NRT2«0 


N 

50 



NDEFaO 


N 

51 



KL ASS* 1 


N 

52 



ITYPE = 0 


N 

53 



L 1 5*0 


N 

54 



IF (MP2) 20.40*20 


N 

55 

c 




N 

56 

c 


WRITE OUT STATEMENT CURRENTLY IN JINT. 


N 

57 

c 




N 

58 


20 

Imax*jmax 


N 

59 



KLASS=2 


N 

60 



CALL IOSYSI (2.KILI»4) 


N 

61 



CALL IOSYSI ( 2 . J INT * JMAX ) 


N 

62 



NR T 1 * I 


N 

63 



KLASS»3 


N 

64 



IF (JMAX. LE. 72) GO TO 40 


N 

65 



CALL PAGE (-2) 


N 

66 



WRITE (6.180) 


N 

67 



GO TO 40 


N 

68 

c 




N 

69 

c 


RF AD AND COPY CARD IMAGES BY WAY OF KBUFF. 


N 

70 

c 




N 

71 


30 

CALL READER 


N 

72 


40 

NREC=NREC*1 


N 

73 

c 




N 

74 

c 


LOOK FOR LAST NON-BLANK CHARACTER ON CARD. 


N 

75 

c 




N 

76 



fN- 

II 


N 

77 


50 

IF (KBUFF ( I >-KBL> 70.60.70 


N 

78 


60 

1 = 1-1 


N 

79 



IF (1-7) 50.70.70 


N 

80 


70 

I MAX* I 


N 

81 

c 




N 

82 

C 


LOOK FOR END STATEMENT. 


N 

83 

c 




N 

84 



J= 3 


N 

85 



DO 100 1*7. IMAX 


N 

86 



IF (KBUFF ( I ) -KBL ) 80.100.80 


N 

87 


80 

IF (KBUFF (I)-KEND(J) ) 110.90,110 


N 

88 


90 

J = J-l 


N 

89 



IF (J) 100.130.100 


N 

90 


100 

continue 


N 

91 

c 




N 

92 


o 



• SITE OUT CARO IMAGE FOR PASS2. 

110 IF (MP2) 120.30,120 
120 CALL IOSYSl (2.KILI.M 

CALL IOSYS1 (2.KBUFF » IMAX) 
NRT1»NRT 1*1 
GO TO JO 


i 30 
140 


IF IFLAG IS NON-ZERO. REQUIRE ThaT "END" 
FOLLOWED by a blank. 

LAST CHARACTERS ON THE CARD. 

(IFLAG) U0.150.U0 

(K8UFF ( I ♦ 1 > -KBL ) 110,150.110 


WRITE OUT ENO STATEMENT. 


150 IF (MP2) 160,170,160 
160 KLASS*8 

CALL IOSYS1 
CALL IOSYS1 
NRTUNRT1 .1 
CALL IOSYS1 (1.0.0) 


(2.KILI .4) 

(2.KBUFF, IMAX) 


LOAD BUFfER. KBUFF , BEFORE EXITING. 

170 CALL READER 
RETURN 


180 FORMAT (99H0* WARNING ••• 

1MAVE CHANGED THE SECOND CARO OF THIS ROUTINE) 
END 

SUBROUTINE COPY ( N I 


TIDY MAY 


This SUBROUTINE COPYS NON-BLANK CHARACTERS FROM JINT TO 1 OUT . 
ON ENTRY o== 

N .LT. 0 COPYS UNTIL PARENTHESIS COUNT IS ZERO. 

N . EO , 0 COPYS ALL REMAINING NON-BLANK DATA FROM JlNT TO IOUT. 
N ,GT. 0 COPYS N NON-BLANK DATA FROM JINl TO IOUT, 

THE FIRST ITEM INSPECTED IS JINT(JCOL). 

The FIRST item STOREO GOES TO I OUT ( ICOL* 1 > • 

ON EXIT css 

the last item inspected was jinujcol-d. 

The LAST ITEM STORED WENT TO IOUT(ICOL) AND IS IN LCPY. 


N 

93 


3 

•L772 .LAST 

• LCPY 

, LOOS ( ! 

N 

94 


4 

• LFIR » LQUAL 

• MEOF 

.MILOO 

N 

95 


5 

•MIGC ,MP2 

* MTRAN 

.nblc 

N 

96 


6 

•NCD , NDEF 

tNDOS 

• NINS 

N 

97 


7 

,NPAR , NPUN 

, NREC 

. NREF 

N 

98 


8 

• NRT1 » NRT2 

,NTEMP(5) 

• NXEQ 

N 

99 


9 

•NTRAN .KENDO) t MPUN 

» MPR I N 

N 

100 


EQUIVALENCE (KILI (1> .KLASS) 

, ( KILI (2) ,JTVPE) 


N 

101 


EQUIVALENCE (KILI (3) ,L15) . 

(KILI <4 ) , I M AX ) 


N 

102 

C 





N 

103 


COMMON 

/ALPHA/ KBL.KDIGUO) . KABC (26) .KSPK112) 


N 

104 

c 





N 

105 


COMMON 

/CONTDY/ NKTRL.KTRLU 

,25) 


N 

106 

c 





N 

107 

c 





N 

108 


COMMON 

/H0L2/ KBL2.KLR2.KLP2 

•KRP2.KERM 


N 

109 

c 





N 

no 


COMMON 

/INIT/ LINE.MPAGE.NPAGE.KODE 


N 

in 

c 





N 

112 


COMMON 

/KSTCOM/ NKST » KST (13. 

65) 


N 

113 

c 





N 

1 14 


COMMON 

/CHOICE/ 



N 

115 


1 

K015 . KPUN 

*MCOL 

• HCOM 

N 

116 


2 

•MEX .KD79 

• mlbl 

•MSTOP 

N 

117 


3 

.ML I ST .NROUT 

*MREF 

• MSKP 

N 

118 


4 

*KD15 .MSER 

• MRIT 

• JUST 

N 

1 19 


5 

• KPRIN , NOP T 



N 

120 

C 





N 

121 

c 





N 

122- 


10 NT*N 





MEOF ,LT. 0 

FOR NORMAL EXIT. 



0 

MEOF ,EQ. 0 

FOR KERM 

FOUND WHILE 

COPYING ALL 

REMAINING data. 

0 


OP FOR KERM FOUND BEFORE LEFT PARENTHESIS. 

0 

MEOF .GT, 0 

FOR MISSING RIGHT PARENTHESIS. OR 

FOR MEOF =0 ON 

0 


ENTRY TO 

COPY. 



0 

o 

COMMON 





0 

0 

JlNT(lbOO) i 

» JOB (80 ) 

•KBUFF (80) 


0 

! *LDEF (3000) 

• LREF (1000) 



0 

DIMENSION KIM(80.20) 




o 

EQUIVALENCE t JINT, KIM) 




0 

COMMON /LARGE/ 

NWORDS 

, IOUT (13265 


c 

0 

COMMC-'* /RISC'' 





0 

0 

ICOL 


IFIH 

, IPASS 

* I SI AR 

0 

• JCOL 


i JMAX 

• KR! (4) 

, KOL73 ( 3 ) 

0 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 
1 J 
U 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2*. 

25 

26 

27 

28 
29 


32 

33 


IF (MEOF) 30.20.20 
20 MEOF ■ 1 
LCPY.kERM 
return 

30 IF (JCOL-JMAX) 40.40,20 
40 IF (NT) 150,60.100 

COPY ALL remaining non-blank characters. 

50 JC0L*JC0L*1 
60 JTbJInT(JCOL) 

IF (JT-KBL) 70.50.70 
70 ICOl«ICOL*l 
IOUT (ICOLUJT 
IF (JT-KERM) 50.00.50 
80 LCPYsKERM 
ICOL-ICOL-I 
MEOF«0 
RETURN 

COPY — N— NON-BLANK CHARACTERS. 

90 JCOL»JCOL ♦ 1 
100 JT»JINT (JCOL ! 

IF ( JT-KBL ) 110.90.110 
110 IC0L«ICCL*1 
IOUT ( ICOL ) * JT 
NT«NT-1 

IF (NT) 20.130.120 
120 IF (JT-KERM) 90,60*90 
130 JCOL«JCOL*l 


0 34 

0 35 

0 36 

0 37 

0 36 

0 39 

0 40 

0 41 

0 42 

0 43 

0 44 

0 45 

0 46 

0 47 

0 48 

0 49 

0 50 

0 51 

0 52 

0 53 

0 54 

0 55 

0 56 

0 57 

0 56 

0 59 

0 60 
0 61 
0 62 
0 63 

0 64 

0 65 

0 66 
0 67 

0 66 
0 69 

0 70 

0 71 

0 72 

0 73 

0 74 

0 75 

0 76 

0 77 

0 78 

0 79 

0 80 
0 81 
0 62 
0 83 

0 84 

0 65 

0 86 
0 87 

0 88 
0 89 

0 90 

C 91 
0 92 

0 93 

0 94 

0 95 

0 96 



LCP Y* JT 

petuwn 



1 rcoL 

2 tJCOL 

3 .l 772 

4 tLFIW 

b .MtGC 

6 *NCD 

7 tNPAR 

f i NR T 1 

9 »NTRAN 


• IFIR 

• JMAX 

• LAST 
•LOUAL 
»MP2 

• NDEF 

• NPUN 

• NRT2 
»K£ND ( J) 


• I PASS 
*K1U (4) 
iLCPY 
*MtOF 

» m Tran 

• NOGS 

• NREC 

•NTEMP (5) 

• HPUN 


• I STAR 

• KOL 73 ( 3 ) 

• LDOSUO) 
.MILDO 

• nblc 

• NINS 

• NREF 

• NXEQ 

• mphin 


0 97 

0 9b 
0 99 

0 100 
0 101 
0 102 
0 103 

O 104 
O 105 
0 106 
O 107 
O 108 
O 1 09 

o no 
o m 

O 112 
O 113 

O 114 

O 1 15 
O 116 
O 117 
O 118 
O 119 
O 120 
O 121 
O 122 
O 123 
O 124 
O 125 
O 126 
O 127 
O 128 
O 129 
O 130 
O 131 
O 132 
0 133 

O 134 
O 135 
O 136- 
P 1 
P 2 
P 3 
P 4 
P 5 
P 6 
P 7 
P 8 
P 9 
P 10 
P 1 1 
P 12 
P 13 
P U 
P 15 
P 16 
P 17 
P 16 
° 19 

P 20 
P 21 
P 22 
P 23 


oooonoooo 


EQUIVALENCE (KILI(ll.KLASS) , ( KILI (2) .JTYPE I 
EQUIVALENCE (KILI (3) .LIS) . (K1L I [4 > . IMAX ) 

COMMON /ALPHA/ KBL.KOIG(IO) .KABC ( 26) .KSPK ( 12 ) 

COMMON /CONTOY/ NKTRL.KTRL ( A . 25) 

COMMON /H0L2/ KBL2.KLR2.KLPi.KRPB.KERM 

COMMON /INI T/ LlNE.MPA6E.NPAGE.K0DE 

COMMON /KSTCOM/ NKST ,KST ( 1 3 .65 ) 

COMMON /CHOICE/ 

1 KB15 . KPUN . MCOL 

i "HEX .KD79 . MLBL 

3 .MLIST . NROUT . MREF 

* .KD15 .MSER .MR IT 

5 . KPR I N .NOPT 


10 IE (LT72) 30.20,30 
20 RETURN 

30 IF (L772-L15) 60.40.60 
♦0 IF (NXEQ) 90.90,50 

POOR PROGRAMMING PRACTICE, 
50 CALL DIAGNO (IB) 

60 IF (NREF) 90.90.70 
70 DO 80 1*1 .NREF 

IF (LREF(I)-L772I BO. 20, 80 
80 CONTINUE 

ADD REFERENCED STATEMENT TO Table. 

90 NREF»NREF ♦ I 

IF (NREF- 1000) 100.100.110 
100 LREF(NREF)*L772 
RETURN 


TABLE FULL 
110 CALL DIAGNO 17) 

NREF ■- 1 
MP2»0 
RETURN 
END 

SUBROUTINE EDIT 

THIS SUBROUTINE EDITS THE DEFINED AND THE REFERENCED STATEMENT 
NUMBER L I ST • 

<1> DEFINED STATEMENTS THAT ARE NOT REFERENCED ARE OELETEO. 
(2) PSEUOO-STATEMENT NUMBERS OUTSIDE THE RANGE OF RENUMBERED 
DEFINED STATEMENT NUMBERS ARE GENERATED FOR EACH 
REFERENCED STATEMENT WHICH IS NOT OEFINEO. 


COMMON 

1 JINT ( 1600 ) ♦ JOB (80 ) 

? »LDEF f 3000 ) • LREF I 1 0 0 C > 

DIMENSION KIM (80*20) 

EQUIVALENCE (JINT* KIM) 

Common /LAPGE/ NWOPlJS 


•KBUFF (80) 


» IOuT < 1326) 


P 24 
P 25 
P 26 
P 27 
P 28 
P 29 
P 30 
P 31 
P 32 
P 33 
P ?4 
P 35 
P 36 
P 37 
P 38 
P 39 
P 40 
P 41 
P 42 

P 43 
P 44 
P 45 
P 46 
P 47 
P 48 
P 49 
P 50 
° 51 

P 52 
P 53 
P 54 
P 55 
P 58 
P 57 
P 58 
P 59 
P fO 

P 61 

P 62 

P 63 

P 64 

P 65 

P 66 

P 67 

P 60 

P 69- 
Q 1 

Q 2 

Q 3 

Q 4 

0 S 

o 6 

0 7 

Q 8 

0 9 

Q 10 

Q 11 

0 12 

G 13 

0 14 

Q 15 

Q 16 

0 1 7 


/ 


4^ 

NJ 




Q 18 
U 19 
(J 20 

q 21 

Q 22 
0 23 

Q 24 

Q 25 
0 26 
0 27 

U 26 
U 29 
u 30 
0 31 

U 32 
U 33 

Q 34 
u 35 
u 36 
Q 37 
U 36 
J 39 
U 40 
u 4 ; 

M 4* 
u 4 J 
Q 44 
Q 45 
U 4b 
Q 47 
) 4 b 

Q 50 
J 51 
(J 52 
0 53 

Q 54 
'j 55 
U 5b 
0 57 

U 56 
(J 59 
U 60 
(3 6 1 

0 62 
0 63 

U 64 
0 b 4 - 

U 66 
Q b ' 
(3 bn 
0 69 

Q ’O 
U 7 1 

Q 72 
0 73 

Q 74 
0 7b 

0 7b 
j 7 7 

o >6 

0 7 9 




DO 90 Jsl.9D£F 

IF (L*EF ( 1 J -LDEF ( J ) ) 90.130*90 
90 CONTINUE 

ado pseudo-statement number. 

IF (IT) 110*100*110 
100 I T« 1 

CALL PAGE (0) 

■RITE (6.150) 

CALL PAGE (3) 

110 NDEF*NDEF*1 

IF (NDEF-1500) 120.120.140 
120 LDEF (NDEF ) »LREF ( I ) 

LDEF (NDEF ♦ 1 500 > ®0 

J=NDEF*KD15*KB15 

NMSG=NHSG»1 

■ RITE (6*160) NMSG.LREF { I ) • J 

CALL page (1) 

130 CONTINUE 
RFTURN 

140 CALL DIAGNO (6) 

NDEF *- 1 
MP2 = 0 
RFTURN 

ISO FORMAT (13A.66H*.. THE FOLLOWING REFERENCED STATEMENTS ARE NOT DEF 
l I NED . •••/13X.66M*** PSEUDO-STATEMENT NUMBERS HAVE BEEN ASS1 

2GNE0 • •••/IX) 

160 FORMAT ( TX . 1 M l . I 3 . 22M I ••• STATEMENT NUMBER. IS. IBM IS ASSIGNED NUM 
1HER. IS. lM. . 13x .3M»**I 
END 

SUBROUTINE HO IR 

This SUBROUTINE GENERATES a REFERENCE DIRECTORY OF STATEMENT 
NUMBERS SHORING THE OLD STATEMENT HUMBER. ITS LOCATION IN THE 
ROUTINE. AND THE NE» STATEMENT NUMBER GENERATED BY TID*. 


i 

JINT (1600) 

•JOB (80) 

•KBUFf (80) 

2 

.LDEF (3000) 

•LREF (1000) 


DIMENSION KIM(80*20) 



EQUIVALENCE < JINT. KIM) 



COMMON 

/LARGE/ 

nwords 

. I OUT (1326 

COMMON 

/MISC/ 



1 

ICOL 

* IF IR 

•IPAS5 

2 

.JCOL 

. JMAX 

.KILI (A) 

3 

.L772 

.LAST 

.LCPY 

4 

• LF IR 

•LOUAL 

.MEOF 

5 

• MLGC 

*MP2 

.MTRAN 

6 

• NCD 

.NDEF 

• NOOS 

7 

♦ NPAR 

♦ NPUN 

*NREC 

6 

.NRT1 

. NRT2 

.NTEMP (5) 

9 

»NTRAN 

•KEND ( 3 ) 

• MPUN 


EQUIVALENCE (KILI(I).KLASS) 
EQUIVALENCE (KILI (3) *LI5) * 


. ( KILI (21 . JTVPE) 
(KILI (4) .IMAX) 


COMMON /ALPHA/ KRL *KDIG ( 1 0 ) *KABC (26) *KSPK ( 12) 
COMMON /CONfQY/ NKTRL.KTRL(*.2b> 


, 1 ST AR 
.KOL73 (3) 
.LDOSUO) 
» MI LDO 
.N8LC 

• NINS 

• NREF 
.NXEQ 

• MRR I N 


62 

63 

64 
8^ 
86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 
96 
99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 
113- 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


•&> 






R 

31 




R 

3? 

COMMON /H0L2/ KRL2.KLP2*KLP<!iKRP2tKERM 



R 

3.' 




H 

34 

COMMON / I N I T / LINE*MPAGE*NPAGE.*ODE 



R 

3b 




R 

36 

COMMON /KSTCOM/ NKST * KS T { 13*65) 



R 

37 




R 

38 

COMMON /CHOICF/ 



R 

3V 

1 KBlS .KPUN *MCOL 

.MCOM 


P 

40 

2 » ME X *KD79 *MUBL 

.MSTOP 


R 

41 

3 » ML I ST .NROUT *MREF 

.MSKP 


R 

42 

4 »KDl 9 .MSER * MR I T 

• JUST 


R 

43 

5 tKPRlN tNOPT 



R 

44 




R 

45 

10 IF (4-NOEF) 30*20*20 



R 

46 

20 RETURN 



H 

47 




R 

48 

30 CALL PAGE (0) 



R 

49 

WRITE (6*100) 



R 

50 

CALL PAGE (4) 



R 

51 

00 40 I«i.NOEF 



R 

52 

40 JInT < I >*I 



W 

5i 




R 

54 

ADDRESS-SORT STATEMENT NUMBERS 



H 

55 




R 

56 

m = nDF f ♦ 1 



M 

57 

SO N»sC 



M 

58 

M = M- 1 



R 

59 

00 70 1=2. M 



U 

60 

J = JlNT ( 1-1 ) 



R 

61 

KsjINT ( I ) 



R 

62 

IF (LOEF 1 J) -LOEF (R) ) 70*70*60 



R 

6 J 

oO JINT (1-1 ) =R 



R 

64 

J I NT < I ) — o 



R 

6b 

NR* - 1 



R 

66 

*0 i.ONTINUE 



W 

67 

IF <NR) SO. BO. 80 



R 

68 




R 

69 

WRITE DIRECTORY 



R 

70 




R 

71 

80 00 90 1*1 . NDEF 



R 

72 

NW1 = MKD15*KR1S 



R 

73 

NO 1=1 DEF ( I > 



R 

74 

LO 1 *LDEF ( 1*1500} 



K 

75 

J=JINT ( I ) 



R 

7b 

N*2= J*KD15*KB15 



R 

77 

N02=LDEF ( J) 



R 

78 

L02=LD£F ( J*l500) 



R 

79 

WRITE (6.110) NWl *N01 *L01 *N02 *l02.Nw2 



R 

80 

9 ’ Call page ( 1 > 



R 

81 

WRITE (6.120) 



R 

82 

CAL'. PAGE i 3: 



H 

83 

rf Turn 



R 

e«* 




R 

65 

100 FORMAT t 33X . 26HSTATEMENT NUMBER D I REC T OR Y / 1 h 0 

*22X,JHNEW,5X 

* 3hOLO • 3 

R 

dt 

1 A* JhlOC. 12X. JM0LD»3A,3HL0C»6X ,3HnEw/1X) 



R 

H ' 

110 FORMAT ( 2 1 * » I S * 3H = » I5.2H. ( . I4.2hj , *8X* I5 .?h 

t ( ♦ I 4 « 4 H ) = « 

15* in. ; 

R 

8H 

120 FORMAT ( 1*C *20X,53HOLU STATEMENT NUMBERS NOT 

APPEARING IN 

THIS DIR 

li 

89 

1ECT0RV/21/ *42hwFWE NOT REFERENCED AND HENCE ARE DELETED.) 


R 

90 

F \D 



L 

91- 

SUHRO' r 1 NF HASS2 








b 

2 


3 




If (IHAX.GE.IOLO) GO TO 80 

INE*=IMAX*1 

DO 70 I-INEMtlOLD 
70 I OUT ( I ) =k BL 

C LOOK FOR $ 

80 IF (KLASS.Lt.l) GO TO 110 
DO 90 I*7.IMAX 

IF ( IOUT ( 1 ) .EG.KSPK < 10) ) GO TO 100 
90 CONTINUE 
GO TO 110 

100 IF (MPRIN.EO.O) WRITE (6.480) < I OUT < I) , I * 1 , 72 ) 

WRITE (6.470) 

110 NR T 1 =NR T 1-1 

IF (NREC) 130.120.130 
120 CALL HEADER 

IF (MPwin.nE.O) CALL PAGE (0) 

C 

130 I =KL ASS. 1 

GO TO ( 140 . 160 . 150 . 160.280.280 *280*300 . 360. 160*300 ). I 
C KLASS DESCRIPTION 

C 0, CONTROL CARD 

C 1. COMMENT 

r 2. header 

c 3 . NO STATEMENT NO ALLOnEO (NON-EXECTUAbLt ) 

r CONTINUE 

C 5. FORMAT STATEMENT. 

c. 6. STATEMENT NO. ALLOWEO. NO REFERENCES 

C 7. REFERENCES PRESENT. STATEMENT NO. ALLOWED, 

r 8. END 

C. 9. INTRODUCTORY 

' io, no 

c 

r KLASS 0. CONTROL CARD 

140 CONTINUE 

C HfcSERVEO FOR FUTURE DEVELOPMENT, 

GO To 50 
C 

ISO CALL KIMPAK 

IF (MPRIN.NE.O) GO TO 170 

IF (MPUN.NE.Q) WRITE (6.500) ( K I M 1 1 • 1 ) . I * 1 , 72 > 

IF (MPUN.FO.OJ WRITE (6.510) (K 1M ( I * 1 ) , 1 « 1 , 72 ) 

CALL PAGE (2> 

GO TO 170 

r WRITE (PUNCH) NEW STATEMENT. 

C 

160 Call kimpak 
170 DO ?70 jc l . NCO 
NREC®NREC*KD79 
IF (MPRIN) 180.220.180 
180 I c (MSEH) 190.200.190 

190 WRITE (6.480) ( K I M ( I • J > . I a 1 . 72 ) • KOL 7 3 . NRt C 

GO 1 o ^io 

200 WRITE .6*480) (KIMt l,ji , 1=1 .72' 

210 C A. l P«6F i 1 ) 

22'. IF ;*PUN) 230.2 7l.230 
230 IF (MSER) 24C.25u.240 

240 WRITE :8»<.90j : MM ( ? , j) * I * ; * 72 < »*OL7 J.NHEC 

■iC. *0 26 0 

250 WOITF (8.490 » K I M ■' I * j ,* *1 = 1*72) 

• 60 NPtJN = NPUN* ] 

2 7 C CONTINUE 
GO TO 50 


S 6b 
S 67 
S 68 
S 69 
S 70 
S 71 
S 72 
S 73 
S 7* 
S 75 
S 76 
S 7 7 
S 78 
S 79 
S 80 
S 01 
S 02 
S 83 
S 84 
S 85 
S 86 
S 87 
S 8b 
S 89 
S 90 
S 91 
S 92 
S 93 
S 94 
S 95 
S 96 
S 9 7 
S 98 
S 99 
S 100 
S 101 
S 102 
S 103 
S 10“ 
S 105 
S 106 
S 107 
S 108 
S 109 
S 1 10 
S HI 
S 112 
S 113 
S 1U 
S 115 
S 116 
S 117 

s 1 :« 
s I >9 
5 120 

s I?; 

S 1 22 

s : 2 j 

S 1 2 4 

S 125 
* 26 
S 12' 

S 128 


C 

C STATEMENT NO. BUT NO REFERENCES ALLOWED. 

280 L772=L15 
ICOL*0 
CALL RENUM 

IF ( L 7 72 ) 160.290.160 

c STATEMENT NO, ABSENT OR NOT REFERRED TO, 

c is this a format statement or continue statement.,, 

290 IF (KLASS-5) 50.50.160 

C 

C REFERENCES ALLOWED, 

C 

300 L772=L15 
ICOL«0 
CALL RENUM 
DO 310 1*7.1 MAX 
JINT ( I ) =IOUT ( I ) 

310 I0UTU)*KBL 
I C0L=6 
JCOL * 7 
JMA X* I MA X 

320 IF (JINT ( JCOD-KLR2) 330*340,330 
330 ICOL*ICOL*l 

IOUT ( I COL) « JINT (JCOL) 

JCOL= JCOL ♦ 1 

IF (JCOL-JMAX) 320.320.350 
340 L772*JINT ( JCOL ♦ 1 > 

JCOL* JCOL *2 
CALL RENUM 

IF ( JCOL "JMA X ) 320*320.350 
3S0 I M A X a I COL 
GO TO 160 
C 

C END STATEMENT, 

r 

360 NREC*NREC*KD79 

IF (MPRIN) 370.410,370 
370 IF (MSER) 330.390.380 

380 WRITE (6,480) ( I OU T ( I ) . I * 1 . 72 ) . KOL 73 . NREC . M J NuS 

GO TO 400 

390 WRITE (6,480) < IOUT ( I > • I ■ 1 • 72 ) 

400 CALL PAGE (1) 

410 IF (MPUN) 420.460.420 
420 IF (MSER) 430,440.430 

-.30 WRITE (8,490) II OUT (I) ,1*1.72) , KOL 73. NREC, MINUS 
GO TO 450 

440 WRITE (8,490) ( IOUT ( I ) * 1*1. 72) 

450 NPUN=NPUN ♦ 1 

460 CALL IOSYSi (1,0.0) 

RETURN 

C 

4 70 FORMAT { lH* , 1 1 OX , 9HS % % % S) 

480 FORMAT :7X,75A1»I4.A1) 

490 FORMAT (75Al , 14, Ai ) 

500 FORMAT ( 1H0. 15X.72A1 .5X.9H--PUNCMED) 

5!0 FORMAT flH0.15X.72Al.5X.13H— NOT PUNCHED) 

END 

SL'HPOUT If.Sf K’MPAK 

r this rolt^e packs super-cahd images from ioutid into kim<i,j), 

(• 

COMMON 


S 129 
S 130 
S 131 
S 132 
S 133 
S 134 
S 135 
S 136 
S 137 
S 138 
S 139 
S 140 
S 141 
S 142 
S 143 
S 144 
S 145 
S 146 
S 147 
S 148 
S 149 
S 150 
S 151 
S 152 
S 153 
S 154 
S 155 
S 156 
S 157 
S 158 
S 159 
S 160 
S 161 
S 162 
S 163 
S 164 
S 165 
S 166 
S 167 
S 166 
S 169 
S 170 
S 171 
S 172 
S 173 
S 174 
S 175 
S 176 
S 177 
S 176 
S 179 
S 180 
S 181 
S 182 
S 183 
? 164 

S 185 
S 186- 

r l 

T 2 
r 3 
T 4 
T 5 


-P* 

cn 




1 JINT I 1 6 C 0 ) 

, JOB 160 ) 

tKBUFF (60) 


▼ 

6 


? «LPEf (30001 

•LREF(lOOO) 



T 

7 


DIMENSION KlM(80,20) 




T 

B 


EQUIVALENCE (JINT ,KIM> 




T 

9 

c 





T 

10 


COMMON /LARGE/ 

NWORDS 

• IOUTU326) 


r 

1 1 

* 





T 

12 


COMMON /MlSC/ 




T 

13 


1 ICOL 

, ifir 

•IPASS 

, ISTAN 

T 

1 •* 


2 • JC0L 

• JMAA 

*KIL! ( A ) 

»KOL 73(3) 

T 

15 


3 *{,112 

• LAST 

,LCPY 

, LDOS (10) 

T 

16 


A *LFIR 

, LQUAL 

,MEOF 

, M ILDO 

T 

1 7 


5 »MLGC 

,MP2 

, M T RAN 

,nblc 

r 

18 


6 • NCD 

. NOEF 

• NOOS 

, N I NS 

T 

19 


1 .NPAR 

, NPUN 

,NREC 

, NREF 

T 

20 


a * NRT 1 

. NRT2 

*NTEMP<5) 

• NXEQ 

r 

21 


9 « NTRAN 

• KENDO) 

• MPUN 

, MPR IN 

T 

22 


EQUIVALENCE (KILI(I)* 

KLASS) » { 

KILI (2) *JTYPE) 


T 

23 


EQUIVALENCE (K IL I ( 3 > • 

LIS) • (K IL I { A ) , 1MAX ) 


T 

24 

r 





T 

25 


COMMON /ALPHA/ KHLtKDIG(lO) *KA8C(26) .KSPK(12) 


T 

26 

C 





T 

2^ 


COMMON /CONTDlT/ NKTRL 

•KTRl (4,25) 



T 

2b 

c 





I 

29 

C 





T 

30 


COMMON /H0L2/ KBL2 .KLR2»KLP2«KRP?,KEWM 


r 

31 

c 





T 

32 


COMMON / I N I T / LINE#MPAGE»NPAGE*KODE 


T 

33 

c 





T 

3A 


COMMON /kstcom/ nkst, 

KST ( 1 J»65> 



T 

35 

c 





T 

36 


COMMON /CMQICE/ 




T 

J 7 


1 KHlb 

, KPUN 

• MCOL 

, MCOM 

T 

38 


2 »MfX 

• K079 

t MLRL 

.MSTOP 

T 

39 


3 » ml I ST 

, NROU T 

,m«ef 

,MSKP 

T 

40 


4 • KD 1 5 

* MSER 

, MR I T 

, JUST 

T 

41 


5 * KPR I N 

, NOPT 



T 

a2 

c 





T 

43 


10 NCD* ( ( IMAX-7)/66> *1 




T 

A 4 

c 





T 

45 


On 2C 1*1,72 




T 

46 


20 K I M ( I * 1 ) *IOuT ( 1 ) 




r 

47 

c 





T 

Ab 

f 

••• CONTINUATION CARU 

PROCESSING 


T 

A 9 


IF ( 1 -NCD ) 30,90,90 




T 

50 


30 K 7 = 7 




T 

SI 


*72=72 




T 

52 

c 





T 

5 J 


DO 80 J=2 , NCU 





54 


K 7*K 7 *66 




T 

55 


K72*K 72*66 




T 

56 


L *6 




T 

57 


00 AC I=K7*K72 




7 

56 


L = L ♦ 1 




T 

59 


4C K ]M (L » J) * I OUT ( I ) 




r 

6 0 


no 50 1*1,5 




T 

61 


50 K IM( I , J) *KBL 




T 

62 


IF (J-UJ 70*60,60 




T 

63 


60 KIM (6* J) *KSPK (10) 




r 

64 


GO TO 80 




• 

65 


70 KJMi6*J) rKOlG(J) 




! 

66 


80 CONTINUE 




T 

67 


90 RETURN 




T 

68 



END 




T 

69- 


SUBROUTINE MENUM 



U 

1 

C 





U 

2 

C 

This SUBROUTINE inspects THE OLO 

STATEMENT NUMBER 

IN L772 ANO 

u 

3 

C 

INSERTS The new number CORRESPONDING TO L772 IN IOUT STARTING AT 

u 

4 

c 

I COL • 1 

. ON EXIT, L772 CONTAINS 

the new statement 

NUMBER, 

u 

5 

c 





u 

6 


COMMON 




u 

7 


I 

JINT < 1600) , JOS (80 ) 

•KBUFF (60) 


u 

8 


2 

»LDEF ( 3000 ) .LREF(lOOO) 



u 

9 


DIMENSION KIM(80»20) 



u 

10 


EQUIVALENCE (JINT.K I M) 



u 

11 

c 





u 

12 


COMMON 

/LARGE/ NWORDS 

,IOUT( 1326) 


u 

13 

c 





u 

14 


COMMON 

/MISC/ 



u 

15 


1 

ICOL , I F I R 

•IPASS 

•ISTaR 

u 

16 


2 

, JCOL ,JMAX 

•KILI (4) 

,KOL73( 3) 

u 

17 


3 

,L772 ,LAST 

• LCPY 

•LOOS (10) 

u 

18 


A 

«LFIR , LQUAL 

• MEOF 

•miloo 

u 

19 


5 

,MLGC ,MP2 

•MTRAN 

• NBLC 

u 

20 


6 

»NCD ,NDEF 

• NOOS 

, N INS 

u 

21 


7 

, NPAR , NPUN 

• NREC 

,NPEF 

u 

22 


8 

»NRT1 »NRT2 

,NTEMP(5) 

• NXEQ 

u 

23 


9 

, NTRAN , KENDO) 

, MPUN 

, MPR I N 

u 

24 


EQUIVALENCE (KILI ( 1 ) , KLASS) , ( 

KILI (2) • JTYPE) 


u 

25 


EQUIVALENCE (KILI (3) ,L15) , (K ILI <4 ) • IMAX ) 


u 

26 

c 





u 

27 


COMMON 

/ALPHA/ KBL*KDIG(10) »KABC (26) ,KSPK(12) 


u 

28 

c 





u 

29 


COMMON 

/CONTDY/ NKTRL*KTRL (4,25) 



u 

30 

c 





u 

31 


COMMON 

/MOL2/ KBL2*KLR2,KLP2,KRP2,KERM 


u 

32 

c 





u 

33 


COMMON 

/ I N I T / LlNE.MPAGE.NPAGE.KODE 


u 

34 

c 





u 

35 


COMMON 

/KSTCOM/ NKST, KST ( 13*65) 



u 

36 

c 





u 

37 


COMMON 

/CHOICE/ 



u 

38 


1 

KB 1 5 , KPUN 

• HCOL 

• MCOM 

u 

39 


2 

,MEX , KD79 

• MLBL 

•MSTOP 

u 

40 


3 

»ML I ST ,NROUT 

,mref 

» MSKP 

u 

41 


A 

* KD 1 5 ,MSER 

, MR I T 

• JUST 

u 

42 


5 

, KPR I N ,NOPT 



u 

43 

c 





u 

44 

c 





u 

45 


IF ( L 7 72 ) 30,80,10 



u 

46 

c 





u 

47 

c 

SEARCH 

DEFINED STATEMENT TABLE FOR L772, 


u 

48 

c 





u 

49 


10 DO 20 

I ■ 1 ,NOEF 



u 

50 


IF (LOEF ( I ) -L772) 20,40,20 



u 

51 


20 CONTINUE 



u 

52 

c 





u 

53 

c 

NOT IN 

STATEMENT NUMBER LIST. DELETE NUMBER, 


u 

54 

c 





u 

55 


30 L772*0 




u 

56 


RETURN 




u 

57 

c 





'J 

58 

c 

ASSEMBLE NEW STATEMENT NUMBER. 



u 

59 

c 





u 

60 


40 1*1 *KD 1 5*KB15 



J 

61 


L 7 72*1 U 62 


O' 




c 


REAL*H NOUT 


c 

c 

c 

c 


c 


COMMON /DIOMSG/ MSGU0.30) »NMSG 
COMMON /H0L2/ KBL2.KLR2.KLP2.KRP2.KERM 
COMMON / I N I T/ LINE.MPAGE.NPAGE.KODE 
COMMON /KSTCOM/ NKST.KST ( 13.65) 

COMMON /CHOICE/ 

1 KB 1 5 , KPUN * MCOL .MCOM 

2 tMEX .KD79 • MLBL fMSTOP 

3 • ML I ST .NROUT ,MREF ,MSKP 

4 »KD15 *MSER » MR I T .JUST 

5 .KPRIN .NOPT 

WEAl*8 MSG 1 U0)»MSG2 <10)»MSG3 (10).MSG4 (10J.MSG5 (10) 

«EAL*8 MSG6 U0)»MSG7 (lO).MSGB (lO).MSGV ( 1 0 ) . MSG 1 0 (1 0 ) 

REAL*6 MSG 11 (10) » MSG1 2 (10) «MSG13(10) ,MSG14(10> .MSG15U0) 

REAL *8 MSGlfel 10) ,MSG17( 10) *MSG18(10) .MSG 19(10) .MSG20( 10) 

REALMS MSG21 (10) »MSG22(10) .MSG23(10> .MSG24(10) .HSG2S(10) 

REALMS MSG26 (10) .MSG27U0) » MSG28 (10) «MSG29(10) .MSG30I10) 
EQUIVALENCE (MSG (1.1) .MSG1 ) • (MSG (1.2) .MSG2) * (MSG (1.3) *MSG3 ) 
EQUIVALENCE (MSG ( 1 .4 > .MSG A) * (MSG ( 1 .5) *MSG5 ) . (MSG ( 1 .6) . MSG6 ) 
EQUIVALENCE (MSG (1.7) .MSG 7) . (MSG (1.8) .MSG8) • (MSG (1*9) .MSG9) 
EQUIVALENCE (MSGU.10) .MSGiO) . (MSG( 1*111 *MSG11) • (MSG(1*12) .MSG12) 
EQUIVALENCE (MSG (1.13) . MSG 1 3 ) . (MSG( 1 .14) .MSG14 ) . (MSG( 1 .15) .MSG1S) 
EQUIVALENCE ( MSG ( 1 .16) .MSG16) . (MSG (1.17) . MSG1 7 ) • (MSG( 1 .18) .MSG18) 
EQUIVALENCE (MSG (1.19) .MSG 19) , (MSG ( l .20) . MSG20 > • (MSG ( I *21 ) . MSG2 1 ) 
EQUIVALENCE (MSG (1.22) .M5G22) . (MSG (1.23) *MSG23) • (MSG (1.24) • MSG24 ) 
EQUIVALENCE (MSG (1.25) .MSG25 ) . (MSG (1.26) « MSG26 ) * (mSG( 1 .27) .MSG27 ) 
EQUIVALENCE (MSG (1.28) .MSG28) . (MSG ( 1 *29) «MSG29) * (MSG( 1 *30) . MSG30 ) 

DIMENSION kSTI ( 13) * KS T2 (13).kST 3 (13)*KST4 (13).KST5 (13) 
DIMENSION KST6 ( 13) • KST7 (13).KST8 (13)*KST9 ( 1 3 ) ,KST 1 0 ( 1 3) 
DIMENSION KSTI 1 (13) *KST12(13) . KST 1 3 ( 1 3 ) .KST 1 4 ( 1 3) ,KSTl5(13> 
DIMENSION KST 16 (13) .KST 17 (13) .KSTI 8 (13) »KST19(l3> .KST20I13) 
DIMENSION KST21 (13)*KST22(13) » KST23 ( 1 3 ) .KST 24(13) .KST25(13) 
DIMENSION KST26113) .KST27 ( 13) .KST28 ( 1 3) *KST29(13) .KST30(13) 
DIMENSION KST31 ( 13) .KST32( 13) *K5T33 (13) .KST 34 (13) .KST 35 (13) 
DIMENSION KST 36 ( 13) .KST 37 ( 13) .KST 38 (13) .KST39( 13) .KST40 (13) 
DIMENSION KST 41 ( 13) .KST 42 ( 13) .KST 43 (13) .KST 44(13) .KST45 (13) 
DIMENSION KST46(13)»KST47(13).KST48(13)*KST49(13).KST50(13) 
DIMENSION KST5K13) .KST52(13) .KST53U3) .KST54(l3) .KST55(13) 
DIMENSION KST56(13).KST57(1J).KST58(13) »KST59< 13) . KST60 (13) 
DIMENSION KST61 (13) .KST62( 13) .KST63 (13) .KST64 (13) » KST65 (13) 
EQUIVALENCE ( K ST (1.1 )*KST1 ) . (KST ( 1 .2 ) *KST2 ).(KST(1.3 J.KST3 ) 

EQUIVALENCE (KST (1.4 ) • K ST4 ),(KST(1.5 ) *KST5 ).(KST(1*6 ) .KSTb ) 

EQUIVALENCE ( K ST ( 1 . 7 ) .KST 7 ).(K$T(1*8 ) *KST8 )*(KST(1.9 ) *KST9 ) 

EQUIVALENCE (KST ( 1 . 10) *KST10) . (KST (1.11) .KSTI 1 ) » (KST (1*12) .KST 12) 
EQUIVALENCE (KST (1,13) . KS T 1 3 ) , ( KS T ( 1 . 1 4 ) .KST14) . (KST (1.15) .KST 15) 
EQUIVALENCE (KST{l.|6>.KST16).(KST(1.17J .KST 17) . (KST < 1 • 18 ) .KST 1 8 ) 
EQUIVALENCE (KST ( 1 , l 9 > .KST 1 9) , (KST ( 1 .20 > .KST20) • (KST (1.21) .K3T21 ) 
EQUIVALENCE (KST 1 1 .22) » KST 22) . (KST (1.23) .KST23 ) • (KST ( 1 *24) .KST24 ) 
EQUIVALENCE (KST (1*25) .KST25) • (KST (1.26) .KST26 ) • (KST' 1.27) .KST2 f ) 
EQUIVALENCE (KST { 1 .20) . KST28 ) . (KST (1.29) .KST29 ) ♦ (KST ( 1 . 30 ) .KST 33 ) 
EQUIVALENCE (KST :i ,31 ) .KST31) . (KST ( 1 .32) .KST 32) . (KST ( i .33! .KST 33) 
EQUIVALENCE (KST < 1 ,3*) .KST 34) , (KST ( 1 .35) .KST3S) . (KST < 1 .36) , KST 36) 
EQUIVALENCE (KST (1.37) »KS T3 7 ) * (KST ( 1*38) .KST 38) * (KST (1.39) .KST39 ) 
EQUIVALENCE (KST ( l .40) .KST40) . (KST ( 1*41 ) .KST41 ) . (KST ( 1 .42) » KST 42) 
EQUIVALENCE (KST ( 1 .43) .KST 43) , (KST (1.44) .KST44) . (KST (1*45) .KST45) 
EQUIVALENCE (KST (1 .46) .KST46) . ( KST ( 1 • 4 7 ) . KST47 ) » (KST( 1 .48) .KST40) 
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V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 
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33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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60 
61 
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64 
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67 
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69 
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71 

72 

73 

74 

75 

76 

77 
70 

79 

80 
81 
82 

83 

84 

85 
36 
87 
89 

89 

90 

91 

92 

93 

94 

95 





EQUIVALENCE ikstii 

•OUIVALENCE (KS7(1 
equivalence (KST(I 
EQUIVALENCE (KST d 

equivalence < kst < i 

EQUIVALENCE (KST(1 

DIMENSION KT«Li (4 
DIMENSION KT«L6 (4 
DIMENSION KTRLl 1 <4 
DIMENSION KTHLI6 (4 
DIMENSION KTRL<?1 (* 
EQUIVALENCE (KTRLl 
l «(KTRL3 tKTWLIlt 
? . ( K TRL6 •KTHLIIf 

J .(KTRL9 .KTRLll* 

4 , (KTRL12.KTRI (1 * 

5 . (KTRL15.KTPL ( 1 » 

6 • 1«TRL18*KTRL Cl t 

7 • (KTRL21 .KTRL (1 ♦ 

6 • (KTRL23*KTRL (1* 


.49) .KST49) • (KST (1.50) .KST50) • (KST 11*51) *KST5 1 ) 
.52) .KST52) . (KST (i .53) .KST53 ) * (KST ( I .54) . KST54 j 
*55) .KSTS5) * <KST(1 .56) .KST56) • (KST (1.57) .KST57) 
.58) .KSTSB) . (KST ( 1 **59) .KST59) . ( KST • 1 . 60 ) * KST6 0 ) 
.61 ) .KST6I) . (KSTU.62) .KST62) . (KST ( 1 .63) .KST 63 ) 
.64) .KST64) . (KST (1.65) .KST65 ) 


).KTRL 2 t 4 ) , K T RL 3(4). KTRL 4(4),KTRL 5(4) 

) • K TRL 7 ( A ) . K t RLfl <A).KTRL9 ( A ) *KTRL 10(A) 

) .K TRL 1 2 ( A ) .KlRL l 3 ( A ) .KTRLl A (4) .KTRLl5(A) 

) .KTRLl 7 (A) . Kl RL 1 8 (A) .KTRL19 (A) ,KTRL20(A) 

) . KTHL22 ( A ) .KTRL23 (A) .KTRL2A (A) ,KTRL25(A) 

• KTRLd.l ) ) • (K TRL 2.KTRL (1.2 )) 

3 ) ) . (KTRLA .KTRLd.A ) ) . (KTRL5 .KTRL ( 1 *5) ) 

6 ) ) . ( K TRL7 .KTRL (1.7 ) J • (KTRL8 'KTRL (ltd )) 
9 ) ) . (KTRL 10. KTRL (1 • 1 0 ) ) • (KTRLl 1 .KTRL (1 • 1 1 ) > 
12) ) . (KTRLl 3. K TRL (i * 13) > • (KTRL 1 A . KTRL (1 • 1 A > ) 
15) ) . (KTRL 16. KTRL (1. 16) ) * { KTRL 1 7 . K TRL (1 . 1 7 ) ) 
18)). (KTRL 19. KTRL (1.19)). (KTRL20 .KTRL (1.20)) 
21 > ) • (KTRL22.KTRL (1*22)) 

23) ) . (KTRL2A.KTRLd.2A) > • (KTRL 25. KTRL ( 1 .25) ) 


/ ALRma/ 

DATA KBL.KDIG/1H . 
DATA KABC/1HA.IMB. 
1 1H0. 1 HP . 1 HQ * 1 HR * 1 H 
!< A I A KSPK/ IH*. ih, , 


1H0 t )H1 . 1M2. 1H3. 1H4 • 1H5 . 1H6. 1H7 . 1M6. 1M9/ 

1 HC . 1HD * 1 H£ . 1 HF • 1 MG . 1 HH • 1 H I • 1 M J , 1 HK • 1 ML • 1 MH • 1 MN • 
S. 1HT.1HU. 1HV* lMR. 1MX. IHY.1H2/ 
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KTRL6 /1HC. 
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KTRLB / 1 HC . 
K T RL 9 / lME. 
KTRL10/1HL. 
KTRLl 1/1HL. 
KTRL12/IML. 

KTRL 1 3/lHN. 
K TRL 14 / IhR. 
KTRL 15/lHb. 
KTRL 16/lMS. 
K THL1 7/1HS. 
KTRL 18/1MR. 
KTRL19/lnL» 
KTRL20/IHC. 
K T RL 2 1 / 1 MR * 
KTRL22/1MK. 
KEND /lMD.l 
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DATA KBL2.KLR2.KLP2.KRP2.KERM/2H • . 2H JS . 2H ( ( » 2H ) ) . 2H */ 
/ INI T/ 

DATA LINE. NPAGE.KODE/1 .0.0/ 


/DIOMSG/ * 

OATA NMSG/0/ v 

DATA MSG1/6H THE A.6MB0VE S » 6HT ATEME ♦ 6HN T IS . 6HI LLEGA » 6HL ANO .6H V 
1 HAS BE.6HEN 0EL.6HETED. *6H / V 

DATA MSG2/6H THE A.6HB0VE S .6HT ATEME . 6HN T HAS.6H A MIS.6HSING R.6H V 
1IGHT P.6HARENTH.6HESIS, .6H / V 

OATA MSG3/6H THE A.6H80VE S.6HT ATEME .6HNT HAS. 6H AN EX.6MCESS R.6H V 
1IGHT P.6HARENTH.6HESIS* *6H / V 

DATA MSG4/6M THE A.6HBOVE S . 6HT ATEME .6HN T INC . 6HORRECT • 6ML V TER.6M V 
IMJNATF.6HS A 00.6M L00P..6H / V 

DATA MSG5/6M THE A.6HB0VE S.6HT ATEME. 6HNT CAN » 6HN0T BE.6H REACH. 6H V 
1 ED BY *6HTHE PR.6H0GRAM, *6H / V 

OATA MSG6/6H STATE. 6HMENT N.6HUMBER . 6HTABLE .6HFULL • *6H RENUM.6H V 
IBER PA.6HSS DLL.6Ht.TED. *6H / V 

OATA MSG7/6H REFER. 6HENCE N.6HUMBER .6HT ABLE .6HEULL. *6H RENUM.6H V 
1BER PA.6HSS DEL .6HETED . *6H / V 

OATA MSGB/6H THE A.6HB0VE S . 6hT ATEME . 6HN I TYP.6HE IS 0.6H8S0LET «6H V 
IE AND . 6H I S DEL . 6HETED. *6H / V 

DATA MSG9/6M ABOVE * 6H STATE.6HMENT H.6HAS AN » 6H I LLEGA . 6HL F IRS.6H V 
IT SPEC.6HIAL CH.6HARACTE.6HR, / V 

DATA MSG10/6H ILLEG.6HAL DAT . 6HA . FUN.6MCT ION. .6H OR SU.6HBR0UT I .6 V 

1HNE STA.6HTEMENT.6H, • 6H / V 

DATA MSG11/6H THE A.6HB0VE C » 6H0MM0N . 6H0R DAT.6HA STAT .6HEMENT .6 V 
1HIS M I S.6HSJNG A.6H (/). .6H / V 

DATA MSG12/6H The A.6HB0VE C .6H0NT INU.6ME STAT. 6MEMENT .6HIS RED. 6 V 
1HUNDANT.6H AND I.6HS DELE .6HTED. / V 

DATA MSG13/6H The A.6HBOVE D . 6H I MENS I . 6H0N STA.6HTEMENT.6H IS NO. 6 V 
1HT C0MP.6HLETE. . 6H .6H / V 

DATA MSG1A/6H* A R .6HN I N .6HG , T » 6MH I S ST . 6H A TEMEN . 6HT SH0U.6 V 
1HLD F0L.6HL0* AN.6H END C . 6MARD. / V 

DATA MSG15/6H THE A.6HB0VE D.6H0 STAT.6HEMENT .6HHAS AN.6H INVAL.6 V 
1HID TER.6HMINAL • 6HS T AT£M * 6HENT • / V 

DATA MSG16/6H * A R.6H N I N.6H G • . 6HUNS A T I . 6HSF I ED .6HD0 LOO. 6 V 

1HPS, . 6H • 6H » 6H / V 

DATA MSG17/6H UNNUM * 6HBERED .6M0R INV.6HALID F.6H0RMAT .6HST ATEM.6 V 
1HENT DE.6HLETED. .6H .6H / V 

DATA MSG18/6H MARNI . 6HNG . A.6HB0VE S.6HTATEME *6HNT IS .6HP00R P.6 V 
1HP0GRAM.6HMING P.6HRACTIC.6HE, / V 

DATA MSG19/6H ABOVE. 6H GO TU.6H STATE. 6HMENT I .6HS ILLE.6HGAL. .6 V 
1h .6H . 6H . 6H / V 

OATA MSG20/6HILLEGA.6HL ARIT.6HHMETIC.6H IF ST.6HATEMEN.6HT. 1.6 V 
IMF (API.6HTH) 1..6H2.3 . 6H / V 

DATA MSG21/6M ABOVE *6H NAMEL • 6HIST ST .6HATEMEN. 6HT MISS.6HING (/.6 V 
1H) , »6H . 6H »6H / V 

DATA MSG22/6H ILLEG.6HAL REA.6HD. PRI.6HNT* 0R.6H PUNCH.6H STATE. 6 V 
1HMENT. • 6H . 6H • 6H / V 

DATA MSG23/6H ILLEG.6HAL REA.6HD (SS)»6H LIST .6HOR BRI.6HTE (SS.6 V 
1H) LIST.6H STATE.6MMENT, .6H / V 

DATA MSG2A/6H DO L0.6H0P TAB.6HLE FUL.6HL. RE » 6HNUMBER . 6M PASS .6 V 
IMOELETE *6HD. »6H *6H / V 

OATA MSG25/6HW A R . 6HN I N *6HG , . 6HC0MMA • 6HF0LL0" » 6H ING X *6 V 

IHMISSIN.6HG IN A.6HB0VE F . 6H0RMAT . / V 

DATA MSG26/6H TIDY C.6HANN0T . 6HPR0CES . fc**S THIS. 6H CLASS. 6H OF PR. 6 V 
1H0GRAM..6H IC0P.6HY EXEC . 6HUTEO. ) / V 

DATA MSG27/6H WARN I 1 6 HfcG . A.6HB0VE D • 6HO-LOO? • 6H TERMl . 8HNUS PR. 6 V 
1 iFVIOUS«6HLY R£F » 6HERENCE . 6HD. / V 
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DATA NKSI /6J/ 

DATA RSI 1/lHA. lMC. 1HC< IHE. IMP. IHT. 1H ,1H 
OA 1 A KST 2/lHA. IMS. lMC. IHE • lHN. iMT . 1(< ,1M 
DATA KST 3/lHA.lHS.lHS.lHI.lHG.lMN.lH ,1 M 
DATA KST 4/ 1 HS . 1 HA , 1 HC » lHKl 1 HS » IMP. 1 HA » 1HC 
DATA KST S/lHB.lHL»lMO,lHC»iMK»lHD»lMA.lNT 
DATA KST 6/1HB. IHU.lHFtlHF , IHE. 1HR.1HI . lHN 
DATA KST 7/lHB.lHU.lHF.lHF.lME.lHR. 1H0.1HU 
DATA KST »/1HC.1 ha.1ML.1HL,1h ,1m .lh .1H 
DATA KST 9/ 1 HC , IMO. 1 HM , 1 HM » 1 HO » 1 HN » 1H ,1H 
DATA KST 10/1HC. 1HO. 1HM, IMP. IHL. IMF . lMX. 1H 
DATA KSTl 1/lMC. IMO. lHN. IMT . lMI • IHN. 1 MU . 1 M£ 
DATA KST 1E/1MD. 1HA . 1HT . IMA. 1H ,1H ,1H , In , 
DATA KST 13/1 HD. 1HE. lMC. lno. 1MD. 1ME. 1M( .in 
DAI A KSTl*/ 1HD. mi . Inn.lME. IHN. IMS. 1HI , 1MO 
DATA KST15/1M0. lno. lHU. IMB. 1ML. IME . IMP, 1MR 

OATA KST 16/1HD. 1MO, IMU. 1 MB . 1 ML . IME. lH ,ln 
OATA KSTl 7 /Ihd. 1MO. In .1H .in ,1H .In .In 
DATA KST 18/ IME . 1MN. 1MC. lno. lHU. IME . In I ■ in 
DATA KST 19/lHt • 1MN. 1MO. IMF • l MI ■ 1HL • lHE • 1H 
DATA KST20/1HE.1HM.1HD.1H .In .in .In .in 
Data KST 21 / ihe. Imn. ImT . imp . lnr . in ,in ,in 
Data KST22/lHE.lMa.lnu.lMI.lMV.lMA.lML.lnE 
Data KST23/lM£.iHx.lnr.inE.lHP.inN.lnA.inL 
DATA KST2*/1HF. 1MI . IHN. 1M1 . 1MS.1H ,1H .1M 
DATA KST25/1HF . lno. IMP. lMM. IMA. 1HT • 1M ilH 
Data k$T2a/1hf . Iho. Imp. IhT . Imp. Ima. Ihn, Im 
DATA KST27/lHI,lMF.lH(.lMU.lMN,lHI.lMT.ln, 
DATA KST 28/ IMF . 1HU. IMN. 1HC. IMT. lMI . lMO. IMN 
Data KST2P/1MB. Imo. Iht . lno. lMI , In .In ,ln 
DATA KST30/1MD.1M0.1MT.1M0.1M .1H .In ,1M 
DATA KST31/1M1 . IMF. IMA. 1MC. IMC.lMU. lMM, 1MU 
DATA KST32/1M1 . IMF . 1MQ. 1MU. 1 MO. IMT . 1 HI . InE 
DATA KST33/lHI.lnF.lHi.ln0.lMl.lMV.lHI.lMD 
OATA KST3»/lMl . 1HF. 1M( .IME • IMN. lMD.IMF. lMI 
data KST35/lMl.lMF.lM(.lMS.lME.lMN,lMS.lME 
data KST36/1M1 . IMF . In ( . IMS. IME i I mn. IMS. IME 
DATA KST37/1hI.1mF.1H(.1m .In .In .1H .In 
jaTa KST38/1MI . IMN. iMT. IME . 1 MG . IME . 1 MH . 1 M 
Data ksT39/Iml . Iho. Img. ImI . ImC. Ima . ihl . 1 m 
data kst*o/1hm. Ima. 1HC. 1HM. Ini . I mn. Ime. 1m 
DATA KST*1/ IMN. IMA. 1HM. IME . 1ml. IMI . 1HS. IMT 
DATA KSTA2/1MP. IMA. lHU. IMS. IHE. 1M .1M .1M 
OATA KST43/1MP, 1MR. IMI . IMN. IHT , 1M .1H ,1M 
DATA K ST** /l HP. IMP. IMO. IMG. 1 MR, IMA. 1HM. 1 M 
DATA K S T *5/ IMP, lHU, IMN, lMC . lMM, 1H ,1H ,1M 
DATA KST46/1MP. IHE . IMA. 1HU. IMI . IMN. IMP, 1MU 

DATA KST* 7/ IMP. IHE . IMA. 1 HU • IHT . I HA, 1 HP . IME 
DATA KST4B/1HP. IHE . 1HA. 1HD. IH{ , 1H .1M .1H 
DATA KST49/1HR. IMF . IMA. 1HD. 1M .1M ,1M ,1M 
DATA KSTSO/lMR.lHE.lMA.lML.IH .1M ,1M ,1H 
DATA KSTSl/lHR, IMF . IMT. IMO. IMR. lHN. lM ,ln 
DATA KSTS2/1MP, IME • 1HK, 1H1 , IHN. IMD. 1H ,1M 
DATA KSTS3/1MS. IME . 1MG.1MM.1ME . IMN.IMT. 1M 
DATA KSTS*/ IMS. IMF . IMN. IMS. IMF. IHL . IMI , IMG 
DATA KSTSS/lnS. IMT , lMO. 1HP, lM .In , 1 M .1M 
OATA KSTBG/lHS.lHU.lHB.lnP.lMO.lHU.lHT.lHI 
DATA K5T57/ IMT • 1MY , 1 HP . IME . 1M .1M ,1M .1M 

OATA KSTS8/1M*. IMP. IMI . IMT . IME. IMO. 1HU. IMT 
DATA KSTSP/ lM* . IMP. IHI .IHT. IHE, IMT. lHA. IMP 
■'«rt KST80/1M*. IMP.IMI . IMT . IME . IMI . 1H .1M 
DATA KST61/lMC.,lMV,lME,lMR,iK c .lMA,lMY l IM 
DATA KST62/1H1 . IMO. IME. IMN. IHT, In .1 m .In 


DATA KST 63 / 1 MF . 1 HR, IME , lHU. lHU. IHE . IMN. IMC, IMT ■ 1 H . 9 . 3 . 21 / V 
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• 2H 

/ 


V 

♦ 30 

DATA LINE2S/ 






V 

♦ 31 

1 6HOMISCE»6MLLANE0.6HUS CON 

•bHTROL 

C • bHARDS , • 

V 

♦ 32 

2 6M * 6H 


• bH 

• bH 


• bH • 

V 

*33 

3 6H * 6H 


• bH 

• 2H 

✓ 


V 

♦ 3^ 

DATA LINE26/ 






V 

♦ 35 

1 6H0 l»6h 


• • bHL AST 

• bH 


••bHLAST • 

V 

♦ 3b 

2 6H • 6H 


T.bHELLS T 

• bH I DY 

TO*bH STOP • 

V 

♦ 37 

3 6HALL PR.bH0CESSI*6HNG, 

• 2H 

/ 


V 

♦ 30 

DATA LINE27/ 






V 

♦ 39 

1 6H0 I • bH 


••bHSTOP 

• bH 


••bHSTOP • 

V 

♦ ♦0 

2 6h .6M 


S • 6HAME AS t bH * 

‘LAST • bH • 

V 

♦ ♦1 

3 6H *6H 


• bH 

• 2H 

/ 


V 

*♦2 

DATA LINE20/ 






V 

♦ ♦3 

1 6H0 I*bH 


••bHSKlP 

• bH 


••bHSKIP . 

V 

♦ ♦♦ 

2 6H »bM 


S.6HKIPS T 

• bHO 

AN 

E « bMND CAR* 

V 

♦ ♦5 

3 bHO, *bH 


• bH 

• ?H 

/ 


V 

♦ ♦b 

DATA L I NE 29/ 






V 

♦ ♦7 

1 bHO »6H 


••bHNEMHO 

• bH 


••bMNEW RO • 

V 

♦ ♦6 

2 bHUTjNE »bh 


R.bHESETS 

•bHEVERYT .bHHlNG T. 

V 

*♦9 

3 6H0 ST«R|6HUNG V »6HALUEb» 

*2H 

/ 


V 

*50 

DATA LINE30/ 






V 

♦51 

1 6H0CARDS»6H 

TO 

CO • bHNTROL 

• bHMHAT 

I • bHS PUNC* 

V 

♦ 52 

2 6HHED. * bH 


• bH 

• bH 


• bH • 

V 

♦ 53 

3 bH • bH 


• bH 

• 2H 

/ 


V 

*5* 

DATA LINE3U 






V 

♦55 

1 bHO D • bN 


• • bHCARD 

• bH 


••bHCARDS • 

V 

♦ 5b 

2 6H • bH 


R.bHEQUEST 

• bHS 

PUNC • bHH OUTP* 

V 

♦ 57 

3 6HUT »bH 


• bH 

• 2H 

/ 


V 

♦ S0 

DATA LINE32/ 






V 

♦ 59 

1 6H • 6M 


•.6HN0CARD.6M 


• • bHNO Car* 

V 

♦ bO 

2 6HDS * 6H 


S*6MUPPRES 

fbHSES 

PU.bHNCH OU» 

V 

♦ bl 

3 6HTPUT • *bH 


• bH 

*2H 

/ 


V 

♦ b2 

DATA L INE 33/ 






V 

♦ 63 

1 6rt0 I * bH 


••bHCOLL 

• bH 


• • bHCOLLEC * 

V 

♦ 64 

2 feH T FOWM.bMATS 

G»bHROUPb 

•bHFORMAT.bH STATE# 

V 

♦ 65 

3 bMMENTS * bHA T 

THE *6H END 0 

• 2HF 

/ 


V 

♦ 6b 

DATA LINE3A/ 






V 

♦ 67 

1 bH * brt 


• •6HN0C0LL 

• bH 


••bHNO COL • 

V 

♦ 60 

2 6HLECT • bH 


T.bHHE ROIJ 

•bHTINE 

• • bHOR LEA * 

V 

♦ 69 

3 6HYES TH.bHEM 

IN *bHPLACE. 

• 2H 

/ 


V 

♦ 70 

DATA LINE35/ 






V 

*71 

1 bHO I#bH 


••bHCOHM 

• bH 


••bHCOHMEN# 

V 

♦ 72 


LP 

O 



2 6HTS • 6m T .6HRANSMI ,6HTS C0M.6HMENT S* 

3 6HT ATEME *ft*NTS T0.6H 0UTPU.2HT / 

DATA LINE 36/ 

1 6H *ftH *»6HN0C0MM,6h *, ftHNO COM# 

2 6HMENTS *6H 0 1 6 HR DELE *6HTES TH.ftHEM, n* 

3 6H0TE TH.6HAT THl*6HS IS N.2H0*/ 

DATA LINE37/ 

1 ftH i6H »6H »6H ,0 m t 

2 ftH *6H A.ftHN I MME ♦ ftHD I ATE .6M0PTI0N. 

3 6H. SO C»6M0MMENT*6HS MAT « 2H0E/ 

DATA L INE38/ 

1 ft* *6H .ft* »ftM *ftM • 

2 ftH *6H B*6HRACKET*6HED. *ftH , 

3 ftH • 6H ,6H ,2 h ' 

DATA L I N£ 39/ 

1 6H0C ARDS » ftH TO CO.ftHNTWOc *6 MmhaT I*6HS PRJN* 

? 6 HTED* * 6 h * 6 M *ft* ,ft* • 

3 6H * ftH f 6H « PM / 

DATA lineao/ 

1 ftHO f.feH *.6MLlSr *ftH • • 6HL 1ST • 

2 ft* *6H R«6HE QUEST «ftHS/SUPP*6HR ESSES* 

3 ft* A L IS • ftHT I NG O.ftHF THE *2H / 

DATA LINE*!/ 

1 ft* * ftH • »6HN0L 1ST tftH * • 6HN0 LIS* 

2 ftHT • 6H 0*6HRIGlNAtftML CAHOtftHS. . 

3 ftH < ft* • ftH ,2M / 

DATA LINE42/ 

1 6HG I * ftH (OLD) • #6MPR IN *6M • .6HPRINT . 

2 ft* *ftM W.6HEQUEST » 6HS/SUPP • ftHRESSE S * 

3 ft* A L I S • ftH T I NG 0.6HF HO lH« 2H / 

Data I.INE4J/ 

1 ft* 0*6*<NE*)«,6HN0PHlNtft* *»6*N0 PRl* 

2 ft* N T «ft* 0 « ft MR IGINA,6*L AND » 6HNE W CA» 

3 ftHRDS, • ft N » ft* *2* / 

DATA line**/ 

1 ft* *ft* »6« « fen ,b* * 

? ft* *ft* D*ftNiAGN0S*6HTKS A,6HHt PHI* 

ft*NTf D I • 6 mN CASE.fth OF .?H / 

ri A T A LINE4S/ 

1 ft* « 6* * ftH ,ft* ,fth , 

c ft*' • ft* E * ftHHRON * * ftHE VEN »*6HHtN OU » 

3 ftHT PIJT 1 • ft*S SUPP*6HRESSED*2H. / 

DATA _ I N£ Aft/ 

; **0 D » 6* • *ft*NOPEEt *ftH • , ftHNO Pf P « 

2 SHE PENCE • ft*S St 6HUHPRES*6HSES/RE*ftHQUESTS« 

3 ** A CRO*ftHSS-REF ,6hER£NCE »2H / 

Data line*?/ 

i ft* * ftH ° • feMWEFt » ft H •♦6HREFERE* 

ftMNCES .6* T.ftHAbLE 0*ftHF OLO » 6H AND NE • 

i h*w ST A T , ftHEME NT • ftH NUMBER • 2HS . / 

•ATA LlNFAtt/ 

t ftHOCARDS.ftH hhICh« 6H AFFEC *ftHT THE » ftHF OHM a T , 
c U F Tn.ftHL PUNC • 6HHED 0U.6HTPUT, , ftH * 

' ft* »ft* »ft* ,2M / 

I A ? A L INE *9/ 

ft*0 T » ft* * * oHNOt a Eh » ft H ® , 6*N0 ExE* 

ft»-MPT * ftM E » ftHXEMP T b * 6* N0N-E«6HXECUTA, 

6*Hl ► ST *ftHA T f *£N»6*TS .2* / 

-AT A uINfcSO/ 

«* • 6* * i 6 Mfc Xfc * .ft* * • ft*£ X E*° I • 

»ft* .ftHC-jMMON,6M,pI*tN.ftHS10N*t . 

v- r P-fr*R(jM PH*ft*')CESSI *2 HnO/ 
i A T A L . N fc * M / 


V *73 

V * /* 

V *» 7S 

V *76 

V *77 

9 478 

V *79 

V *00 

V *0] 

V »8s 

V *8 3 

V *8* 

V *05 

V *86 

V 48 t 

V *88 

V *09 

V *90 

V *91 

V *92 

V *93 

V *9* 

V 49ft 

V *96 

V 497 

V *98 

V *99 

V SOU 

V SO i 

V 502 

V 50.) 

V 50* 

V 505 

V 50ft 

V 50 7 

V 300 

V 509 

V 51o 

V 5 j . 

V 512 

V 51 J 

V 514 

V 515 

V Sift 

V 51 7 

v sie 

V ft 1 9 

V 520 
v 521 

V 522 

V 523 

V 524 

9 525 

v 52ft 

V 527 

V 520 
v 529 

V 530 

V 531 

V 532 

V 533 

V 534 

V 535 


1 

ftH 1 D*6H 

• « ftH NOR I OH , ftH 

••ftHNO RIG* 

2 

6HHT ADJ * 6HUST 

S,ftHTATEME 

•ftHNT NUK.6H8ERS S» 

3 

.HURT I.4HN C0L..6H 1. 

*2H 

/ 


DATA LINE52/ 




1 

ftH *6H 

* *6HR IGM 

* ftH 

••6HRIGHT * 

2 

6HADJUST *6H 

S.6MTATERE.6HNT NUM.6H8ERS E. 

3 

6HND IN » 6MC0L , 

5.6H, 

*2H 

/ 

DATA LINE53/ 




1 

ftHO D.ftH 

••ftHLEFT 

*6H 

••6HLEFT A* 

2 

6HOJUST * ftH 

S.ftHAME AS.6H 

•NO R.6HIGHT • 

3 

ftH , 6* 

• ftH 

*2H 

/ 

DATA LINES*/ 




1 

ftH * ftH 

•*6HN0LEET*ftH 

•.ftHNO LEF. 

2 

6HT ADJU.6HST 

S*6HTATEH£»6HNT NUM.6M8ERS S« 

3 

6HT4RT I *6MN C0LU.6MMN c. 

*2H 

/ 

DATA LINE55/ 




1 

6*0 I .6* 

••6HC0LU 

• ftH 

••6HC0LUMN* 

2 

6H o 7, • ftH 

F , ft HQR TRAN * ftH 

ST ART *ftHS IN C. 

3 

ftHOLUMN • 6H 7 , 

• 6H 

*2H 

/ 

DATA LINE56/ 




1 

ftH * 6H 

• • 6H 

* ftH 

••6HC0LUMN. 


2 ft* a 12,,6H F.6H0RTRAN*ftH START, 6HS IN C* 

3 6H0LUMN *ftHl2, t ftH ,2H / 

OATA LINE57/ 

1 ftH • ft* • * 6HN0C0LU • ftH * • 6HN0 COL* 

2 6HUMN • ftH F,6HIRST L*ftHETTER .6H0F FOR* 

3 ShTRAN I , 6MS NOT , ftHMOVED • • 2H / 

DATA LINE58/ 

1 ftHOCARDS *ftH HHICH.6H AFFtC • 6HT THE ,6HNEW ST* 

2 6HATEMEN.6HT NUMB* ftHERS, *ftH ,6H * 

3 6 H • 6M * 6H *2H / 

DATA LINE59/ 

1 6H0 D.6H • . 6HNO0 AS£ » ftH *,6HN0 BaS* 

2 6HE « ftH S.6HAME AStftH *BASE.6M»0, * 

3 ftw • ftH • ftH *2M / 

DATA LINE60/ 

1 6 H .ftH •tftHBASE * ftH ••6HBASE *» 

2 ftH 100, • 6H S.6METS 2E*ftHR0TH S.6HTATEME* 

3 6HNT NUM • 6HBER , *ftH * 2H / 

Data l iNEftl / 

1 6H0 D.6H • * ftHS T A T *ftH **6HSTATEM» 

2 ftHENT ST • 6MEP*2 • *ftHSETS T.6HHE ST A * ftHTEMEN f * 

3 6H NUMRE *6HR I NCR • 6HEMEN T *2H / 

DATA LINE62/ 

1 6H0CARDS.6H WHICH * 6H AFFEC • ftHT THE • ftHSERl AL * 

2 ftH NUMBE.ftHRS IN • 6HC0LUMN • 6HS 73-8*ftM0. • 

3 6* • ftH * 6H *2H / 

DATA LINE63/ 

1 ftH 0 0 * ftH ••ftHSERl • ftH •♦6HSLRIAL. 

2 ftH *6H R.ftHEQUEST * 6HS/SUPP * 6HRESSES • 

3 6H SERIA.ftHL NAME.6HS AND *2H / 

DATA LINE64/ 

1 *>H * ftH *.6MN0SEKI *6H * • 6MN0 SE«* 

2 ftH I A L * ftH N * fthUMBERS • 6H IN C0.6HLUMNS * 

3 6*73-00, »6* *6H *2H / 

DATA LINE65/ 

1 ftHO D.ftM • * ftHNOLABE * 6H **ftHNO LAB* 

2 6*EL *6* T * 6* I DY US.feHES ThE * 6H ALPHA* 

3 6HBET F0.6HR L ABE * 6HL S • *2H / 

DATA L I NE 66/ 

1 6H *6* * * ftHL ABE *6H • * 6HLABEL • 

2 ft* • ftH T.6KIDY L0.6H0KS IN.6H COL, • 

3 6H73-75 * 6H0F THE *6H FIHST*2H / 


V 536 

9 537 

V 538 

9 539 

V 5*0 

9 541 

V 542 

9 5*3 

9 544 

9 5*5 

V 54ft 

9 5*7 

V 548 

V 549 

V 550 

V 551 

V 552 

V 553 

9 554 

V 555 

V 556 

V 557 

V 550 

V 559 

9 560 

V 56 k 

9 562 

9 563 

V 564 

V 565 

V 566 

V 567 

9 560 

9 569 

V 570 

V 571 

V 572 

V 573 

V 574 

V 575 
9 57ft 

V 577 

V 578 

V 579 

V 580 

V 581 

V 582 

V 583 

V 584 

V 585 

V 58ft 
^ V 587 

V 588 

V 589 

V 590 

V 591 

V 592 

V 593 

V 594 

V 595 

9 596 

V 597 

V 598 





LT» 

K) 
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